Jméno uživatele přihlášeného do Windows

Klíčová slova: GetUserName
Rubrika: Delphi

Používáte víceuživatelské nastavení a potřebujete zjistit jméno právě přihlášeného uživatele ve Windows? Použijte následující proceduru:

function Get_UserName : string;
const
cnMaxLen=254;
var
sUserName : string;
dwUserNameLen : DWord;
begin
Result := '';
dwUserNameLen:=cnMaxLen-1;
SetLength(sUserName, cnMaxLen);
GetUserName(Pchar(sUserName), dwUserNameLen);
SetLength(sUserName, dwUserNameLen);
Result:=sUserName;
if dwUserNameLen=cnMaxLen-1 then Result := '';
end;

Autor: Jiří Provazník
Datum vydání: 06.03.2003 | Zobrazeno: 4641
Permanentní odkaz: Jméno uživatele přihlášeného do Windows

Komentáře (1)

kde mam vložit ten zdrojoví kód ?
Autor:lama