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

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

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

Недавно добавленные исходники
• Animation Loaders 1 068 • DeLiKaTeS Tetris (Тетрис) 6 002 • TDictionary Custom Sort 7 930 • Fast Watermark Sources 7 588 • 3D Designer 10 830 • Sik Screen Capture 8 172 • Patch Maker 8 360 • Айболит (remote control) 8 411 • ListBox Drag & Drop 7 277 • Доска для игры Реверси 101 618 • Графические эффекты 8 466 • Рисование по маске 7 833 • Перетаскивание изображений 6 424 • Canvas Drawing 6 808 • Рисование Луны 6 748 • Поворот изображения 5 842 • Рисование стержней 4 794 • Paint on Shape 3 485 • Генератор кроссвордов 4 513 • Головоломка Paletto 3 627 • Теорема Монжа об окружностях 4 415 • Пазл Numbrix 2 867 • Заборы и коммивояжеры 3 818 • Игра HIP 2 587 • Игра Go (Го) 2 602 • Симулятор лифта 2 981 • Программа укладки плитки 2 411 • Генератор лабиринта 3 158 • Проверка числового ввода 2 643 • HEX View 3 056