1:
2:
3:
4:
5:
6:
7:

ShellExecute(handle, PChar('open'), PChar('C:\Windows\System32\Shutdown.exe'),{+parameter+},nil,sw_shownormal);

// Mögliche parameter (als string angeben):
// -r : neustarten
// -t : zeit in sekunden
// -s : herunterfahren
// -f : alle gestarteten Programme killen                    

1:
2:

ShellExecute(handle, PChar('open'), PChar('C:\Windows\System32\Shutdown.exe'),'-r -t 30',nil,sw_shownormal);
//startet in 30sek neu                    

1:

[Error] Unit1.pas(28): Incompatible types: 'Integer' and 'Pointer'                    

1:
2:
3:
4:
5:
6:
7:
8:

unit unit1;

interface

uses
  {blablabla}, shellapi;

// [...]                    

1:

ShellExecute(handle, PChar('open'), PChar('C:\Windows\System32\Shutdown.exe'),'-r -t 30',nil,sw_shownormal);                    

1:
2:
3:
4:
5:
6:

var
 a: integer;
begin
a:= StrToInt(Edit1.Text);

...PChar('-r, -t' + IntToStr(a*60))...                    

1:
2:
3:
4:
5:

if (MessageDlg('Möchten Sie Windows heruntefahren?',mtConfirmation,[mbYes,mbNo],0) = mrYes) then begin   
   // Windows heruntefahren   
   end else begin   
   // Nichts tun.. else teil kann auch weggelassen werden wenn es da nix zutun gibt.  
   end;