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;