L'ho personalizzato cosi:
codice:
procedure TForm1.CambiaClick(Sender: TObject);
var
buttonSelected : Integer;
begin
SysSetComputerName (PC.Text);
StatusBar.Panels[2].Text:='Nome PC Cambiato'
// Mostri un dialogo di conferma
buttonSelected:= MessageDlg('Le Modifiche Diverrano Effettive Dopo Il Riavvio Del PC', mtWarning, mbOKCancel, 0);
// Mostri il tipo di tasto selezionato
if buttonSelected = mrOK then if not ExitWindows(EW_RestartWindows, 0)
if buttonSelected = mrCancel then ShowMessage('Cancel pressed')
then ShowMessage('Un programma rifiuta di chiudersi.');
end;
Ma mi da questo errore:
[Error] Email.pas(482): Missing operator or semicolon
Che fa riferimento a questa riga:
buttonSelected:= MessageDlg('Le Modifiche Diverrano Effettive Dopo Il Riavvio Del PC', mtWarning, mbOKCancel, 0);