Jak vypnout nebo restartovat počítač:
1) Jak vypnout počítač
var a : cardinal;
begin
ExitWindowsEx(EWX_Force,a); // potlačí hlášky systému
ExitWindowsEx(EWX_SHUTDOWN,a); // vypnutí počítače
end;

2) Jak restarovat počítač
var a : cardinal;
begin
ExitWindowsEx(EWX_Force,a); // potlačí hlášky systému
ExitWindowsEx(EWX_REBOOT,a); // restart počítače
end;