[Dmitry_DM]

Здравствуйте! Помогите составить простенький код программы, которая бы запускала другую программу, к примеру, каждые 30 минут (первый запуск сразу, а последующие каждые 30 минут).
Думаю, надо воспользоватся таймером..
Для запуска буду использовать такой код:

Код:

ShellExecute(Handle, nil, PChar('Test.exe'), nil, nil, SW_RESTORE);

[Alegun]

Думаю, надо воспользоватся таймером..

Код:

var
Count: integer=0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Count > 30 then Count:= 0;
inc(Count);
if Count = 30 then
ShellExecute(Handle, nil, PChar('test.exe'), nil, nil, SW_RESTORE);
end;

[Dmitry_DM]

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

Код:

var
Count: integer=0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Count > 30 then Count:= 0;
inc(Count);
if Count = 30 then
ShellExecute(Handle, nil, PChar('test.exe'), nil, nil, SW_RESTORE);
end;

Какой интервал таймера следует указать?

[Electronic_Arts]

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

Какой интервал таймера следует указать?

У таймера интервал так считается -
1000 значит 1 сек
тебе нужен 30 минут то по выше указанному коду тебе нужна минута
1000*60

[Alegun]

Какой интервал таймера следует указать?

Извини меня Dmitry_DM, первое что в голову приходит не всегда самое лучшее можно намного проще и точнее

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// Начальная установка в обжект инспекторе interval = 1, это чтоб запуск первой копии отработал
ShellExecute(Handle, nil, PChar('Test.exe'), nil, nil, SW_RESTORE);
// Одна запустилась, другая теперь появится только через полчаса
 Timer1.interval := 1800000; // 1сек=1000, 1мин=60000, 30мин=1800000
end;

[Vayrus]

Думаю лучше создать расписание средствами Windows

[Dmitry_DM]

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

Думаю лучше создать расписание средствами Windows

Нет... так будет вовсе не лучше для моего проекта..