[ryderx34]

Имя текущего юзера:

Код:

function GetCurrentUser: string;
var
  UserName: array[0..250] of Char;
  Len: DWORD;
begin
  Len := 250;
  GetUserName(UserName, Len);
  Result := UserName;
end;

Из реестра можно получить сразу полный путь, примерно так:

Код:

uses
  Registry;

function GetUserDirectory: string;
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', True);
    Result := ReadString('Personal');
  finally
    CloseKey;
    Free;
  end;
  Result := ExtractFilePath(Result);
end;