直接上代码：
// 通过注册表 取桌面路径
function GetShellFolders(strDir: string): 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(strDir);
end;
finally
Reg.Free;
end;
result := strFolders;
end;调用方式很简单，
vDesktopFilePath := GetShellFolders('Desktop');
直接调用这个函数，参数为Desktop，就可以取到当前用户桌面目录的路径。
文章来源：https://www.toymoban.com/news/detail-602836.html
可以看到，我们还能取到的其他目录路径，只要我们将参数设置为红框里的键值就可以取到了。 文章来源地址https://www.toymoban.com/news/detail-602836.html
到了这里，关于delphi 通过注册表 取桌面目录路径的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！
![[Nacos] Nacos Client获取所有服务和定时更新Client端的注册表 (三)](https://imgs.yssmx.com/Uploads/2024/02/649134-1.png)
