DELPHI 注册表取桌面、快速启动栏、公共桌面 路径

function TForm1.regeditname(i:integer):string;
var
  AuToRun: TRegistry;
begin                  //1快速启动栏位置   2当前用户桌面 3公共桌面位置
  AuToRun := TRegistry.Create;

  try
    if (i = 0) or (i = 1) then
    begin
      AuToRun.RootKey := HKEY_CURRENT_USER;

      AuToRun.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);

      if i = 0 then
      begin
    //快速启动栏位置，此位置比较特殊，w10和w7都是一样的
       Result := AuToRun.ReadString('AppData') + '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar';

      end
      else
      begin
          //当前用户桌面位置
       Result := AuToRun.ReadString('Desktop');
      end;

      AuToRun.CloseKey;
    end
    else if i = 2 then
    begin
            //公共桌面位置

      AuToRun.RootKey := HKEY_LOCAL_MACHINE;
      AuToRun.OpenKey('\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);
     Result := AuToRun.ReadString('Common Desktop');
      AuToRun.CloseKey;
    end;

  finally
    AuToRun.Free;
  end;

end;