Кто напишет не сложный код?

[Bigzosa]

Гужен код для автоматического выключание компа.
В программе задешь время и через это вреся комп выключается
Кто может помочь?

[Dinmaite]

win+R->shutdown -s -t 2000 (Время в секундах)

[metraz]

а погуглить религия не позволяет?
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_SHUTDOWN or EWX_POWEROFF, 0);
end;

переделай под себя и таймер воткни