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: 3886
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
Přidej vlastní komentář:
Následující (běžně neviditelná) pole slouží pro vnitřní identifikaci systému. Pokud je vyplníte nebude možné váš požadavek na straně serveru zpracovat:
URL:
contents:
Website:
Pro odeslání vašeho komentáře použijte tlačítko "Odeslat". Toto tlačítko nepoužívejte:

Následující položky je vhodné vyplnit:
Jméno :
Email :
Web :
Místo :
Hodnocení:
Hodnocení jako pomocí hvězdiček
1/5= nejhorší, 5/5=nejlepší