Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];

Вниз

Как можно реализовать задержку в выполнении программы?   Найти похожие ветки 

 
Looser   (2002-06-17 23:39) [0]

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

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


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

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

repeat
PostMessage(hPSWnd, WM_CLOSE, 0, 0);
until True;

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


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

Sleep()?


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

sleep(5000)


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

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


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

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



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

Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
1-1101
koks
2002-06-19 13:57
2002.07.01
переименовать модуль :((


1-1039
AFROLOV
2002-06-18 16:02
2002.07.01
Как программно закрыть popupmenu?


3-930
KashDi
2002-06-10 09:21
2002.07.01
delphi6, MSSQL


1-972
VDen
2002-06-19 21:34
2002.07.01
Создание кнопки на панели в RunTime


7-1224
gklbery
2002-04-04 13:27
2002.07.01
потеря типов параметров запросов при копировании файлов





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский