[AlexTheC0d3r]

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

Код:

function Get_UserName: string;
var
  uname: pchar;
  unsiz: cardinal;
begin
  uname:= StrAlloc(255);
  unsiz:= 254;
  GetUserName(uname,unsiz);
  if (unsiz > 0) then
    Result:= string(uname) else
    Result:= 'n/a';
  StrDispose(uname);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Get_UserName);
end;

зачем так много писанины???????

Код:

function user: string; 
var
f:array[0..255]of char;
begin
GetEnvironmentVariable('USERNAME',f,255);
Result := f;
end;