Home » Tipps & Tricks » Netzwerk/Internet » Netzwerk » Computernamen ändern

Computernamen ändern

Dieses Beispiel zeigt, wie man den Namen, mit dem der Computer im Windows-Netzwerk sichtbar ist, ändern kann. Der Name ist erst gültig, nachdem das System neu gestartet wurde.

procedure NeuerComputerName(name: string);
begin
  if name<=MAX_COMPUTERNAME_LENGTH then
    SetComputerName(PChar(Edit1.Text))
  else
    ShowMessage('Der Name ist zu lang!');
end;