[prv_89]

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

[Karsh]

Код:

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

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

Код:

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

Код:

1 2 3 4 5 6 7

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