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

[raxp]

... а что трудно форму скрыть при создании.

[Talemir]

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

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

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

Я так понимаю, что в примере происходит от чет времени назад???
То есть Таймер?

[Melphin]

Там лежит исходник. если бы там был отсчет времени, то это была бы другая тема разговора)))) там стоит текщее время +30. я же не буду каздый раз тестируя ждать 21 минуту двенадцатого))))))
вот что там примерно

procedure TForm1.SHWait;
begin           
nowP:=TimeOf(now)+StrToTime('00:00:30');
Timer1.Enabled:=true;
ShowModal;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If TimeOf(now)>=nowP then
  begin
    Timer1.Enabled:=false;
    close;
  end;
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Talemir]

Она включается через 30сек. Но нет привязки текущего времени!!!

[Talemir]

Вот тоже самое только с одной формой

procedure TForm1.FormCreate(Sender: TObject);
 begin
 Timer2.Enabled:=true;
Timer2.Interval:=1000*30;//30сек.
While Timer2.Enabled<>false do
begin
application.ProcessMessages;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 Timer2.Enabled:=false;
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Melphin]

вообще то моя задача была не сделать задержку в 30 секунд.

procedure TForm1.SHWait;
begin 
nowP:=TimeOf(now)+StrToTime('00:00: 30');
Timer1.Enabled:=true;
ShowModal;
end;

замените

nowP:=TimeOf(now)+StrToTime('00:00: 30');

на

nowP:=StrToTime('23:21:00');

и прога включется в 23:21 или позже до 00:00.

на счет
"Она включается через 30сек. Но нет привязки текущего времени!!!"
Подчеркуну пожирнее)))

nowP:=TimeOf(now)+StrToTime('00:00: 30');

И проверка в таймере

If TimeOf(now)>=nowP then

Так луче??))))

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Talemir]

Так у же луче!!! Спасибо!!!

[Melphin]

Пожалуйста))))