Выключение компьютера в заданное время

Автор: Олег Агранович

Программа для выключения компьютера в заданное время. Если запустить с параметром, указав время, то программа запустится скрытно и выключит компьютер в указанное время. Проверенно на Windows XP.

Для выключения используется процедура:

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;

Скачать (обновление от 01.07.02):

Исполняемый файл Sleeper.zip (161 K)
Исходные коды Sleeper_sources.zip (6 K)

Недавно добавленные исходники
• TDictionary Custom Sort 2 679 • Fast Watermark Sources 2 548 • 3D Designer 4 185 • Sik Screen Capture 2 856 • Patch Maker 3 061 • Айболит (remote control) 2 893 • ListBox Drag & Drop 2 490 • Доска для игры Реверси 74 593 • Графические эффекты 3 314 • Рисование по маске 2 536 • Перетаскивание изображений 2 123 • Canvas Drawing 2 193 • Рисование Луны 2 129 • Поворот изображения 1 699 • Рисование стержней 1 733 • Paint on Shape 1 216 • Генератор кроссвордов 1 800 • Головоломка Paletto 1 445 • Теорема Монжа об окружностях 1 806 • Пазл Numbrix 1 348 • Заборы и коммивояжеры 1 612 • Игра HIP 1 098 • Игра Go (Го) 1 059 • Симулятор лифта 1 221 • Программа укладки плитки 1 011 • Генератор лабиринта 1 321 • Проверка числового ввода 1 085 • HEX View 1 266 • Физический маятник 1 137 • Задача коммивояжера 1 168