getting the user name that logged on a maching

[johndelphi]

how would you get that?

 

[Stretchwickster]

Here's a function I find which I shall add to the FAQ area:

  function  GetWindowsUserName : string;
  const
    cnMaxLen=254;
  var
    sUserName     : string;
    dwUserNameLen : DWord;
  begin
    dwUserNameLen:=cnMaxLen-1;
    SetLength(sUserName, cnMaxLen);
    GetUserName(Pchar(sUserName), dwUserNameLen);
    SetLength(sUserName, dwUserNameLen);
    result:=sUserName;
    if dwUserNameLen=cnMaxLen-1 then
      result:='';
  end;

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[Stretchwickster]

I've revised it a little and added it as a new FAQ in the System Information section: faq102-3877


Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[footpad]

johndelphi,

A slightly different approach can be found at

http://techtricks.com/delphi/winlogin.php,

though it uses the same API call.

Hope this helps...

-- Lance