{ Retrieve the computer name }

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;

procedure TForm1.Button1Click(Sender: TObject);

begin

 ShowMessage(GetComputerName);

end;

{ Set the computer name }

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;

procedure TForm1.Button2Click(Sender: TObject);

begin

 if SetComputerName('NewComputerName') then

   ShowMessage('Computer Name Reset Setting will be used at next startup.')

 else  

   ShowMessage('Computer Name Not Reset');

end;