procedure TForm1.Button1Click(Sender: TObject);
begin
    ExitWindowsEx(EWX_REBOOT + EWX_FORCE,0);
end;