[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    How can I extract the logged username from Novell server?

    There is a API function called GetUserName :

    procedure TForm1.Button1Click(Sender: TObject);
    var
       lpBuffer : PChar;
       nSize    : DWORD;
    begin
         GetMem(lpBuffer,nSize);
         Try
            if GetUserName(lpBuffer,nSize) then
               Edit1.Text := StrPas(lpBuffer);
         Finally
            FreeMem(lpBuffer,nSize);
         end;
    end;

    Also, an other API WNetGetUser - retrieves the current default user name or
    the user name used to establish a network connection.

    See the API Help for more details.

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]