Hello,
a kovetkezo pelda mukodik, kiprobaltam.
a Shellexecute inditja a "shutdown /r " system parancsot.
PC kb 1perc mulva ujrainditodik.
Termeszetesen igy lehet barmiit is indittani.
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'open', PChar('shutdown'), PChar(' /r'), nil, SW_SHOW);
end;