как отключить компьютер после чека ?

как отключить компьютер после чека ?
так?

Спойлер: код

dec(Thread);
if Thread=0 then ShowMessage('Ready!');
if form3.sCheckBox1.Checked=true then
begin
WinExec('S***down -s -t 0', SW_HIDE);
end;

 

Ну да, после убития потоков вставь и всё.

 

ну получаеться все верно? То у меня почемуто вырубает сразу(

 

Советую заюзать процедуру:

Код:

procedure PCOff();
begin
ExitWindowsEx(EWX_POWEROFF or ewx_force,0);
end;

И потом вызывать ее кодом:

Код:

if sCheckBox1.Checker then 
 PcOFF;

Код:

if CurAcc = Accounts.Count then 
begin
Work := False;
if sCheckBox1.Checker then 
 PcOFF;
End;