Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#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;

Published: October 1, 1999

See also

	ABA Document Convert
	SMExport suite
	Paradox ActiveX
	SMMsg suite
	Paradox Viewer
	Database Information Manager
	MAPIMail
	Viewer for TNEF-files (winmail.dat)
	Paradox Password Recovery
	Paradox to Text converter

Contact to webmaster