Реализация ожидания без подвисания программы. (Delphi 7)

[Chaosito]

Привет всем.
насчет ожидания выполнения программы. битый час мучался дабы она не подвисала во время цикла с GetTickCount, вроде решил - добавил в цикл application.handlemessage; Одна проблема решилась, появилась другая. выйти из программы невозможно во время работы цикла. Как организовать выход? что то слышал про WM_QUIT; но никак ненагуглю как его прикрутить.

Краткий код:

t:=GetTickCount;
label1.Caption:=inttostr(t);
label2.Caption:=timetostr(time);
while gettickcount-t<10000 do
begin
  application.HandleMessage;
end;
label3.Caption:=inttostr(GetTickCount);
label4.Caption:=timetostr(time);

собсна хэлп. облазил уже кучу порталов. все "не то". неподходит для моего случая. А вообще желательно бы заварганить процедуру наподобие Sleep. только с продолжением работы и корректным завершением программы. Но мне что то подсказывает что так неполучится, т.к. небудет ожидания завершения процедуры. процедура будет выполнятся сама по себе, в то время как выполнение кода в основой программе продолжится дальше.

[veniside]

Задача вобще какая? Программа и так ничего не делает, если её не трогать. Смысл крутить пустой цикл, и вызывать в нем обработчик сообщений? Такой цикл и так уже есть внутри Application, зачем ещё свой городить?


> процедура будет выполнятся сама по себе, в то время как выполнение кода в основой программе продолжится дальше

ничего там не будет "само по себе", пока явно не создан новый поток (thread).

[Chaosito]

Ну к примеру. как мне выполнить такое действие:

HTTP1.Post(...);
Label1.caption:='Please, wait...';
Wait(250) // Ждем 250 Минут
HTTP1.Post(...);
Label1.caption:='ok! Ready!';

[veniside]

1) Через таймер:

Timer1.Interval := 250 * 60 * 1000;
Timer1.Enabled := True;

На обработчик OnTimer у таймера вешаем то, что должно произойти через 250 минут.

2) Через Application.OnIdle().

Внутри обработчика смотрим, сколько время прошло, если прошло 250 минут, вызываем что надо:

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
begin
  if (250 = minutespassed()) then MyProc();
end;

3) да вобщем дофига способов )