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

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

Программа для выключения компьютера в заданное время. Если запустить с параметром, указав время, то программа запустится скрытно и выключит компьютер в указанное время. Проверенно на 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)

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 124 • TDictionary Custom Sort 3 311 • Fast Watermark Sources 3 060 • 3D Designer 4 815 • Sik Screen Capture 3 313 • Patch Maker 3 527 • Айболит (remote control) 3 628 • ListBox Drag & Drop 2 990 • Доска для игры Реверси 81 529 • Графические эффекты 3 919 • Рисование по маске 3 226 • Перетаскивание изображений 2 607 • Canvas Drawing 2 731 • Рисование Луны 2 555 • Поворот изображения 2 162 • Рисование стержней 2 160 • Paint on Shape 1 564 • Генератор кроссвордов 2 223 • Головоломка Paletto 1 764 • Теорема Монжа об окружностях 2 209 • Пазл Numbrix 1 682 • Заборы и коммивояжеры 2 052 • Игра HIP 1 278 • Игра Go (Го) 1 224 • Симулятор лифта 1 470 • Программа укладки плитки 1 214 • Генератор лабиринта 1 542 • Проверка числового ввода 1 350 • HEX View 1 488 • Физический маятник 1 355