Kako ugotoviti uporabnika winxp

Nasveti za druge programske jezike.
Odgovori
flopy7478
Prispevkov: 4
Pridružen: 23.07.2006 01:53:18

Kako ugotoviti uporabnika winxp

Odgovor Napisal/-a flopy7478 » 22.11.2006 19:41:44

Lp

zanima me kakšna je funkcija da vrne user-ja od XP (delphi)

ac
Prispevkov: 415
Pridružen: 12.09.2002 13:01:38

Kako ugotoviti uporabnika winxp

Odgovor Napisal/-a ac » 22.11.2006 21:09:58

Koda: Izberi vse

Function GetUserFromWindows: string;
Var
   UserName : string;
   UserNameLen : Dword;
Begin
   UserNameLen := 255;
   SetLength(userName, UserNameLen) ;
   If GetUserName(PChar(UserName), UserNameLen) Then
     Result := Copy(UserName,1,UserNameLen - 1)
   Else
     Result := 'Unknown';
End;  
Pa dal si v naroben oddelek.

lp, anze

Odgovori