怎么得到当前用户"我的文档"的路径啊???

Question

如:C:\Documents and Settings\users\My Documents
这个文件夹怎么得到

Answer 1

Uses FileCtrl;var
  vDirectory: string;
begin
  SelectDirectory('选吧！',
    '::{450D8FBA-AD25-11D0-98A8-0800361B1103}', vDirectory);
end;

Answer 2

uses shlobj;function GetPersonalFolder: string;
var
  Buffer: PChar;
begin
  Result := '';
  GetMem(Buffer, MAX_PATH);
  try
    if ShGetSpecialFolderPath(Application.Handle,Buffer, CSIDL_PERSONAL, False) then
      SetString(Result, Buffer, StrLen(Buffer));
  finally
    FreeMem(Buffer);
  end;
end;