Delphi 通过读取注册表信息获取桌面路径

本文整理自网络，侵删。

 
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;

转载于:https://my.oschina.net/jingshishengxu/blog/684575
 

相关阅读 >>

Delphi第三方控件通用安装方法

Delphi xe5 android 调用 google zxing

Delphi 判断当前网络连接方式

Delphi编程时按回车键无效，无法换行解决办法

Delphi xe程序的主题（theme）设置

Delphi 关于位图的像素格式

Delphi xe5 重启 关闭 windows 8

Delphi中url的汉字编码

Delphi多线程文件搜索

Delphi 向windows窗口发送alt组合键的问题

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 通过读取注册表信息获取桌面路径