узнать user

[alex0097]

ребят привет. Подскажите в чем ошибка

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;


procedure TForm1.Button1Click(Sender: TObject);
var
 user:string; 
begin
user:='C:\Users\'+GetCurrentUserName+'\AppData';
 
  ShowMessage(user); 
end;

Но выдает вот что Windows 10:

[Пепел Феникса]

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

там терминальный ноль иначе остается.

[FaTaL]

Зачем Вам такое извращение? Если ищите папку AppData, то уж лучше её и получать, чем имя пользователя. Например так:

var
  c   : array [0..MAX_PATH] of char;
***************************************
  SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, c);