программа таймер для выключения компьютера delphi

[RS219]

Собрал на делфи7 программу для выключения компьютера, но программа не работает, скажите чтоя сделал не правельно?

[evg_m]

Добавь на форму еще один Label и в TForm1.Timer1Timer добавь вывод контрольного времени

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Time);
  label2:= ComboBox1.Text + ':' + ComboBox2.Text + ':' + '00';

Остальное думаю станет понятно.

[RS219]

Нашел ошибку в коде.
Я ComboBox местами попутал, ComboBox'ы местами менять не стал, а изменил код.

надо
if Label1.Caption = ComboBox2.Text + ':' + ComboBox1.Text + ':' + '00' then POWEROFF;
а было
if Label1.Caption = ComboBox1.Text + ':' + ComboBox2.Text + ':' + '00' then POWEROFF;

И за-за этого определялось другое время (не 12:20, а 20:12).


Все работает.

[RS219]

Сама программка

[MILLER163]

А нельзя было написать проще, чтобы по прохождению времени на таймере процедура ссылалась на shutdown.exe -s -f -t 00

[Smitt&Wesson]

Сообщение от MILLER163

А нельзя было написать проще, чтобы по прохождению времени на таймере процедура ссылалась на shutdown.exe -s -f -t 00

Только немного по-другому. Записываете шута в батник и в планировщике событий делаете на него ссылку .
Пуск\Программы\Стандартные\Служебны е\Назначенные задания.
Или. Панель управления\Назначенные задания.

[eoln]

Сообщение от Smitt&Wesson

Назначенные задания

Что в семёрке до сих пор так можно или уже прикрыли лазейку?