|
|
|
Jméno přihlášeného uživatele
|
04.12.2009
|
Úvod
Funkce vypíše jméno aktuálně přihlášeného uživatele do systému.
Prvky
Button1
Label1
Kód
function UserName: String;
var
User : PChar;
i : DWord;
begin
i := 1024;
user := StrAlloc(Succ(i));
if GetUserName(User, i) then Result := StrPas(User)
else Result := 'nenalezen';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=UserName;
end;
|
|
|
