Delphi 取得桌面文件夹的路径和取得我的文档的路径（转）

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

weixin_33912246

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

阅读量511

点赞数

文章标签： python shell

原文链接：https://my.oschina.net/u/3328774/blog/1573489

版权

2019独角兽企业重金招聘Python工程师标准>>>

Uses Windows,Registry;
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;
      
{获取桌面}
      
function GetDeskeptPath: string;
begin
  Result := GetShellFolders('Desktop'); //是取得桌面文件夹的路径
end;
      
{获取我的文档}
      
function GetMyDoumentpath: string;
begin
  Result := GetShellFolders('Personal'); //我的文档
end;

复制代码