Приостановка программы

← →
Виньдовьсь 95 © (2004-09-18 21:06) [0]

Подскажите пожалуйста как остановить программу, чтобы потом ее можно было продолжить с того-же места(такое происходит например при вызове ShowMessage). Также нужно чтобы форма была полностью доступна и по возможности не сильно загружать проц. sleep и waitforsingleobject не подходят.

← →
Defunct © (2004-09-18 21:25) [1]

Var Flag: Boolean;

Procedure Suspend(AFlag:Boolean);
Begin
Flag := AFlag;
While Flag Do
Begin
Sleep(10);
Application.ProcessMessages;
End;
End;

Suspend(True); - остановит программу
Suspend(False); - продолжит.

С условием, что приложение не использует доп. потоков.

← →
Виньдовьсь 95 © (2004-09-18 23:33) [2]

Пасиба :)

← →
KSergey © (2004-09-19 07:03) [3]

> Виньдовьсь 95 © (18.09.04 23:33) [2]
> Пасиба :)

Странно...
Было ведь написано "sleep и waitforsingleobject не подходят"??

? пятниц на неделе

sleep в чистом виде не подходил потомучто прога висла.
а с этой процедурой все тип-топ !

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