Delphi Source Code - How to set/retrieve the Computer Name

Code Category

ActiveX Components Database Files Forms Graphic Internet/Lan Math Miscellaneous Multimedia Printing Strings System Information Windows

Migrate Goldmine to Salesforce

Delphi source code for System Information >> Set/retrieve the Computer Name

Category: System Information
Title: Set/retrieve the Computer Name
Date added: 15.03.2006
Hits: 3075

function GetComputerName: string;
var
  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  Windows.GetComputerName(@buffer, Size);
  Result := StrPas(buffer);
end;

function SetComputerName(AComputerName: string): Boolean;
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  StrPCopy(ComputerName, AComputerName);
  Result := Windows.SetComputerName(ComputerName);
end;

Related Delphi Source Code:

1. How to get the total and available memory? (3601 Hits)

2. How to determinate in whitch way windows is started? (2099 Hits)

3. How to get a list of installed services? (3228 Hits)

4. How to get process informations? (Windows NT/2000)? (4276 Hits)

5. How to get the current drive letter? (3006 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.