Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.03;
Скачать: 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 вся ветка

Текущий архив: 2004.10.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
8-1089582914
d10
2004-07-12 01:55
2004.10.03
Помогите с DirectDraw от JEDI


4-1093528246
RagE
2004-08-26 17:50
2004.10.03
ALT+key


3-1094053694
Алексей
2004-09-01 19:48
2004.10.03
FOX,ADO и отрицательные числа


14-1094723822
Guest
2004-09-09 13:57
2004.10.03
Реально-ли сделать прогу которая будет выводить звук через


8-1087894955
Borealis
2004-06-22 13:02
2004.10.03
Изображения ключевых кадров из авишки (RIFF_AVI)