приостановить выполнение программы

← →
Михаил С (2007-11-22 19:54) [0]

как приостановить выполнение программы так чтобы она не "подвисала" так как при использовании sleep(t);?

← →
Anatoly Podgoretsky © (2007-11-22 19:55) [1]

> Михаил С (22.11.2007 19:54:00) [0]

Если она не подвисает, значит она не приостановлена.

← →
@!!ex © (2007-11-22 20:02) [2]

while <условие приостановки> do
Sleep(100);

← →
Михаил С (2007-11-22 20:03) [3]

ну проста пауза в выполнение цикла во время которой можно при желании выйти из программы (закрыть окно).....

← →
Михаил С (2007-11-22 20:04) [4]

условия нет просто на определенном этапе немного подаждать и продолжить...

← →
@!!ex © (2007-11-22 20:06) [5]

while not finished do begin // Application.ProcessMessages; // end; ... OnButton: finished:=true;

> условия нет просто на определенном этапе немного подаждать
> и продолжить&#133

Используй таймер.

Все значительно проще.

Из библиотеки RX (VCLUtils.pas):

procedure Delay(MSecs: Longint); var FirstTickCount, Now: Longint; begin FirstTickCount := GetTickCount; repeat Application.ProcessMessages; { allowing access to other controls, etc. } Now := GetTickCount; until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount); end;

> Amoeba (22.11.2007 22:39:07) [7]

Греем процессор. Да ему и не надо выдерживать паузу, он же хочет приостановить выполнение.

приостановить выполнение программы Найти похожие ветки