[flyxman]

У всех прошу прощения, разобрался.

Ответ нашелся на этом же сайте.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

{   Windows NT/2000/XP:     The GetUserNameEx function retrieves the name of the user or other   security principal associated with the calling thread.   You can specify the format of the returned name.   If the thread is impersonating a client, GetUserNameEx   returns the name of the client. }    const    NameUnknown = 0; // Unknown name type.   NameFullyQualifiedDN = 1;  // Fully qualified distinguished name   NameSamCompatible = 2; // Windows NT® 4.0 account name   NameDisplay = 3;  // A "friendly" display name   NameUniqueId = 6; // GUID string that the IIDFromString function returns   NameCanonical = 7;  // Complete canonical name   NameUserPrincipal = 8; // User principal name   NameCanonicalEx = 9;    NameServicePrincipal = 10;  // Generalized service principal name   DNSDomainName = 11;  // DNS domain name, plus the user name     procedure GetUserNameEx(NameFormat: DWORD;    lpNameBuffer: LPSTR; nSize: PULONG); stdcall;    external 'secur32.dll' Name 'GetUserNameExA';      function LoggedOnUserNameEx(fFormat: DWORD): string;  var    UserName: array[0..250] of char;    Size: DWORD;  begin    Size := 250;    GetUserNameEx(fFormat, @UserName, @Size);    Result := UserName;  end;    procedure TForm1.Button1Click(Sender: TObject);  begin    Edit1.Text := LoggedOnUserNameEx(NameDisplay);  end;