путь до "мои документы"

[mitiay]

Не могу получить полный путь до моих документов
C:\Users\...\Documents\
Пробывал так

function GetCurrentUserName: string;
 const
   cnMaxUserNameLen = 254;
 var
   sUserName: string;
   dwUserNameLen: DWORD;
 begin
   dwUserNameLen := cnMaxUserNameLen - 1;
   SetLength(sUserName, cnMaxUserNameLen);
   GetUserName(PChar(sUserName), dwUserNameLen);
   SetLength(sUserName, dwUserNameLen);
   Result := sUserName;
 end;

edit1.text:=('C:\Users\'+(GetCurren tUserName)+'\Documents\À.txt');
Но получается только
C:\Users\admin
то есть \Documents\À.txt не видит

[p51x]

есть апишная SHGetFolderPath

[Arigato]

Сообщение от mitiay

edit1.text:=('C:\Users\'+(GetCurren tUserName)+'\Documents\À.txt');

А если винда не на диске С:?

[kropotkina-alice]

Сообщение от mitiay

Не могу получить полный путь до моих документов

Всё новое - это незаслуженно забытое старое.
Вот тут давным-давно была дана целая куча вариантов ответа...
http://programmersforum.ru/showthread.php?t=66828

[FaTaL]

Вот например:

function GetMyDocsDir : string;
var
  c   : array [0..MAX_PATH] of char;
  dir : string;
begin
  SHGetFolderPath(0, CSIDL_MYDOCUMENTS, 0, 0, c);
  dir := c;
  result := dir + '\';
end;