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

	Paradox to MS Access converter
	Viewer for TNEF-files (winmail.dat)
	Metafile Convert
	Clarion to Text converter
	Protected Storage Viewer
	DBLoad
	Paradox to Text converter
	SMMsg suite
	Paradox Viewer
	ABA Spreadsheet Convert

Contact to webmaster