function GetDesktopDir: String;
var
R: TRegistry;
begin
R := TRegistry.Create;
R.OpenKey('SOFTWARE/MICROSOFT/WINDOWS/CURRENTVERSION/EXPLORER/SHELL FOLDERS', FALSE);
Result := R.ReadString('DESKTOP');
Result := UpperCase(Result);//轉換為大小寫,可以不使用;
R.Free;
end;
//函數返回的字符串就是路徑;
利用注冊表獲取桌面路徑.
最新推荐文章于 2025-09-27 14:53:30 发布
博客展示了一个名为GetDesktopDir的函数，该函数用于获取桌面目录路径。通过创建TRegistry对象，打开指定注册表键，读取桌面路径字符串，还可将其转换为大写，最后释放对象，函数返回的字符串即为路径。
扫一扫
3576
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
