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

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

Как можно реализовать задержку в выполнении программы? [D6, WinXP]

Looser ©   (2002-06-17 23:39:00) 

Хочу убрать всплывающее окно при загрузке программы, но закрыть его можно только через 5 секунд после запуска. Как эту ПАУЗУ реализовать? Заранее спасибо! Код прилагается:

WinExec("D:\Program\PowerStrip\pstrip.exe", 1);
hPSWnd := FindWindow("TTipsForm", NIL);
ShowWindow(hPSWnd, SW_HIDE);
// нужна пауза 5 секунд -->
PostMessage(hPSWnd, WM_CLOSE, 0, 0);


---

Егоров Николай   (2002-06-18 05:35:00) [1]

Ну если сильно мозолит глаза,попробуй так:
SetWindowPos(hPSWnd,0,-100,-100,1,1,SWP_HIDEWINDOW);

---

Looser   (2002-06-18 00:45:00) [2]

Спасибо! Дальше может немножко не в тему, да и это не кряк-форум :) НО! Каждый раз после запуска моей чудо-проги, задержка у этого окна увеличивается. И сколько бы я не увеличивал задержку, окно будет недоступным все-равно дольше :) Да уж...

---

rhf   (2002-06-17 23:51:00) [3]

sleep(5000)

---

Pat   (2002-06-17 23:50:00) [4]

Sleep()?

---

Looser   (2002-06-17 23:49:00) [5]

Я хотел вначале попробовать:

repeat
PostMessage(hPSWnd, WM_CLOSE, 0, 0);
untilTrue;

Но похоже PostMessage возвращает True даже если окно не закрылось, да и процессор это грузит.

---

Наверх