delphi 取得桌面文件夹的路径和取得我的文档的路径

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

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;

推荐分享