بدست آوردن system user

[delphi5]

با سلام


میشه بگید که چطور میشه نام کاربری ویندوز رو بدست آورد ؟

[Mahyaa]

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;

منبع : http://delphi.about.com/cs/adptips2002/a/bltip0102_3.htm