Hola ,
para cambiar el nombre de PC he utilizado lo siguiente :
Código Delphi
[-]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;
pero no funcionó y me da este error :
Slack overflow
estoy utilizando delphi xe8 y parec que no acepta Windows.SetComputerName y tuve que quitar Windows
y escribir la así
Código Delphi
[-] Result :=SetComputerName(ComputerName);
Necesito saber porqué no funcinó, o si hay otro código mejor .
Muchas gracias.