Muchas gracias Neftali
eres muy amable te agradezco mucho tu explicación tan detallada, me funcionó lo de SetComputerName pero tenia que poner Windows en uses , algo que no lo capto muy bien todavía
,
para llamar la :
Cita:
procedure TfrmMain.btnCambiarNombrePCClick(Sender: TObject);
begin
If SetComputerName(edit1.Text) Then
begin
If MessageDlg('Computer name succesfully set.' + #13#10#13#10 + 'Would you like to restart to apply changes?',mtConfirmation,[mbYes,mbNo],0) = mrYes Then
begin
WindowsExit(EWX_REBOOT or EWX_FORCE);
end;
end
Else
begin
ShowMessage('Computer name change failed.');
end;
end;
|
Una pregunta amigo que és la diferencia entre SetComputerName y SetComputerNameEx?