[prv_89]

Я знаю о том что в программировании не обязательно писать букву сидюка, а можно просто написать %CDROM% Это называется переменные среды
У меня такой вопрос:
Мне нужно программно узнать имя текущего пользователя !!!
Всем заранее спасибо !!!

[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;

[prv_89]

Всем спасибо уже ненадо !!!
Тему можно удалить !

[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;