2019獨角獸企業(yè)重金招聘Python工程師標準>>>

uses?Registry;

///

function TForm1.GetDeskPath(): string;
const
? regPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
var
? Reg: TRegistry;
? strFolders: string;
begin
? Reg := TRegistry.Create;
? try
? ? Reg.RootKey := HKEY_CURRENT_USER;
? ? if Reg.OpenKey(regPath, false) then begin
? ? ? strFolders := Reg.ReadString('Desktop');
? ? end;
? finally
? ? Reg.Free;
? end;
? result := strFolders;
end;

轉(zhuǎn)載于:https://my.oschina.net/jingshishengxu/blog/684575

總結(jié)

以上是生活随笔為你收集整理的delphi 获取桌面路径的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。