delphi 获取桌面路径

最新推荐文章于 2022-07-30 22:52:49 发布

weixin_34320724

最新推荐文章于 2022-07-30 22:52:49 发布

阅读量764

点赞数

文章标签： python shell 操作系统

原文链接：https://my.oschina.net/jingshishengxu/blog/684575

版权

2019独角兽企业重金招聘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;