Скачать: CL | DM;

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

← →
Виньдовьсь 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 не подходят"??

---

← →
Anatoly Podgoretsky ©   (2004-09-19 11:46) [4]

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

---

← →
Виньдовьсь 95 ©   (2004-09-19 16:13) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c