Здравствуйте, konopko, Вы писали:

K>Как в Delphi выключить комп? Спасибо.

Также, как и в CBuilder — кнопку питания нажать

procedure ShutDownComputer;
var ph:THandle;
    tp,prevst:TTokenPrivileges;
    rl:DWORD;
begin
 OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,ph);
 LookupPrivilegeValue(Nil,'SeShutdownPrivilege',tp.Privileges[0].Luid);
 tp.PrivilegeCount:=1;
 tp.Privileges[0].Attributes:=2;
 AdjustTokenPrivileges(ph,FALSE,tp,SizeOf(prevst),prevst,rl);
 ExitWindowsEx(EWX_POWEROFF,0);
end;