Scalabium Software

#27:The current computer and user names

To get a computer and user name you can so:

var ComputerName: array[1..20] of Char;
     UserName: array[1..512] of Char;
    arrSize: DWord;
begin
  arrSize := SizeOf(ComputerName);
  GetComputerName(@ComputerName, arrSize);

  arrSize := SizeOf(UserName);
  GetUserName(@UserName, arrSize);

  ShowMessage('Computer name is: ' + ComputerName + #13#10 +
                        'User name is: ' + UserName)
end;

Copyrightc 1998-2008, Scalabium Software. All rights reserved.
webmaster@scalabium.com

October 1, 1999