имитация запуска программы (Delphi)

[tarasov_88]

В общем цель такая:
Запустил написанную программу, свернул в трей. В определенное время программа по таймеру из трея запускается и должны выполниться все процедуры и функции,которые выполняются при первом запуске программы.

Про определенное время я определился:

procedure TForm1.Timer1Timer(Sender: TObject);
Var
    T: String;
Begin
     T:=TimeToStr(Now);
     If T='18:00:00' Then
    // Вот здесь нужно описать процедуру запуска проекта//
End;

Подскажите возможно ли такое? если да то как описать это?

[Stilet]

OnCreate(Self); для выполнения обработчика. который при создании формы выполняется. Иногда помогает.

[tarasov_88]

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

OnCreate(Self); для выполнения обработчика. который при создании формы выполняется. Иногда помогает.

Вот эта ошибка выпадает:


Разобрался:

procedure TForm1.Timer1Timer(Sender: TObject);
Var
    T: String;
    FullProgPath: PChar;
Begin
     T:=TimeToStr(Now);
     If T='16:27:00' Then
     begin
     FullProgPath:=PChar(Application.ExeName);
     WinExec(FullProgPath,SW_SHOW);
     Application.Terminate;
     end;
End;

Программа перезапускается по таймеру

[astecenko]

Опишите код который нужно выполнять повторно отдельным методом, и вызывайте его в OnCreate, onTimer и т.д. когда Вам заблагорассудится