Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Приостановка программы [D7, WinXP]


Виньдовьсь 95 ©   (2004-09-18 21:06:00) 

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


Виньдовьсь 95   (2004-09-19 16:13:00) [1]

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


Anatoly Podgoretsky   (2004-09-19 11:46:00) [2]

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


KSergey   (2004-09-19 07:03:00) [3]

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

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


Виньдовьсь 95   (2004-09-18 23:33:00) [4]

Пасиба :)


Defunct   (2004-09-18 21:25:00) [5]

Var Flag: Boolean;

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

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо