[Crack502]

Как прочесть файл "Пользователь\1.txt" не зная имени пользователя

[Страдалецъ]

Как я понял, подразумевается сначала получить имя текущего пользователя, а уже потом прочитать файл из одноименного каталога?

[ryderx34]

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

Код:

1 2 3 4 5 6 7 8 9

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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;