Mengetahui & Mengubah Computer Name

Terkadang kita ingin mengubah computer name melalui aplikasi yang kita buat. berikut ini adalah cara untuk membaca nama komputer dan merubah nama komputer

{Membaca nama komputer }

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;


{ Merubah nama komputer - untuk merubah pastikan login dg hak administrator}

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;


Selamat Mencoba.. Semoga berhasil