Запуск программы по времени

[Talemir]

Мне необходимо открывать программу по определенному времени.
Я использовал вот такой код:

procedure TForm1.Timer1Timer(Sender: TObject);
 Var
T:String;
Begin
T:=TimeToStr(Now);
If T='23:21:00' Then
Begin
Timer1.Enabled:=false;
end;
  End;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=true;
While Timer1.Enabled<>false do
begin
Application.ProcessMessages;
end;
end;

Но при запуске грузится процессор до 100% из-за данной процедуры While Timer1.Enabled<>false do
Помогите разрешить данную проблему.

[FaTaL]

Потому что у тебя цикл бесконечный получается, т.к. скорее всего таймер не успевает проверить именно в эту секунду 00. ИЛи интервал таймера не 1 секунда

[Talemir]

В интервале Таймера устанавливал 1000 и воще 0 устанавливал. Ничего проц грузит

[mihali4]

Просто уберите это никому не нужное извращение:

While Timer1.Enabled<>false do
begin
Application.ProcessMessages;
end;

и все будет в порядке...
А вот строку

If T='23:21:00' Then

лучше написать так:

If T>='23:21:00' Then

[Melphin]

просто выполни инициализацию приложения в отдельной процедуре, и запускай её из таймера, когда время будет то, какое тебе нужно. В остальных случаях пусть таймер ничего не делает, просто дальше щелкает себе и все. если программа должны быть спрятанна в это время, то сделай перед запуском таймера
ShowWindow(Application.MainForm.Han dle,SW_HIDE);
а в процедуре инициализации сделаешь
ShowWindow(Application.MainForm.Han dle,SW_SHOW);

Ну я так делал))

[Melphin]

mihali4 на сколько мне знается, строка не сможет сама себя проверить на больше или меньше)))) лучше проверить
StrToTime('23:21:00')<=TimeOf(now)
Ну или наоборот)))

[Talemir]

Если я убираю
While Timer1.Enabled<>false do
begin
Application.ProcessMessages;
end;

Тогда форма появляется, но нужно, что бы она появлялась по заданному времени

[Melphin]

Читай мой пост выше))

[Melphin]

есть еще вариант!
В DPR можно перед созданиями форм сделать функцию проверки текущего времени. через CreateTimer.
Или перед Application.run Запустить модально левую форму, которая скрыта с твоим таймером. после совпадении времени закрывать эту форму и ждать появления основной

[Melphin]

Вот посмотри такой примерчик.

Прога запускается через 30 секунд.