Antonariy,
AntonariySleep воткнуть, все равно форма еще не показалась, пользовательских действий обрабатывать не требуется.
...
Ну и воткнуть после, а не до FindMyWindow.
Ты про какой Sleep говоришь?
Вот так?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
...
'поиск окна hwndScreen (с учетом того что оно могло еще не появиться)
Dim hwndScreen As Long
If Len(Dir(App.Path & "\screen.exe")) > 0 Then
Dim my_timeout As Date
my_timeout = Now
Do
hwndScreen = FindMyWindow(3) 'WINDOWTITLE_SCREENSAVER
Sleep 100
If hwndScreen <> 0 Then
Exit Do
ElseIf DateDiff("s", my_timeout, Now) > 15 Then 'ну не висеть же бесконечно
Exit Do
End If
Loop
End If
...
Со Sleep у меня были какие-то непонятки в прошлом, поэтому я его избегаю без крайней необходимости.
Я местами пользуюсь вот этим вариантом:
9304794
Но ты ж понимаешь, что это тот же самый DoEvent.
AntonariyНе надо DoEvents, этот цикл будет нормально так подгружать процессор, еще более отсрочивая запуск искомой проги.
Дык DoEvents вроде затем и нужен, чтоб цикл процессор не грузил. И полная загрузка от DoEvents ложная, обсуждали вроде.
Ну можно наверно DoEvents в конец цикла засунуть:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
if len(Dir(App.Path & "\screen.exe))>0 Then
Do
hwndScreen = FindMyWindow(3)
if hwndScreen<>0 then
exit do
elseif (прошло скажем 15 секунд) Then 'ну не висеть же бесконечно
exit do
endif
DoEvents
Loop
End If
Все равно в 99,9% он выйдет после первого FindMyWindow, чего зря DoEvents запускать всякий раз.
В принципе случайный незапуск Screen.exe не является проблемой.
Ну не запустится, не будет ProgressBar, прога то по любому запустится.
Проблема будет если он НЕУПРАВЛЯЕМО запустился, т.е. прога его запустила, но отследить hwndScreen не сумела. Кто этот Screen закрывать будет?
Ну и на самом деле у меня чуть ошибка в логике.
Для Screen.exe прописано в нем самом "1 экземпляр программы".
Если вдруг предыдущий Screen.exe не завершился (напр. при закрытии приложения за счет эффекта слайдера для красоты он выгружается на 1-2 сек. позже основного приложения), то он и не запустится. Т.е. наличие файла
1.
If Len(Dir(App.Path & "\screen.exe")) > 0 Then
еще не гарантирует что мы его запустили.
А 15 секунд в этом случае висеть мы будем.
А вообще если честно я не уверен, что там проблема была с "ранним" выходом из Shell. Вполне возможно что Form_Load тупо подвис из-за большого к-ва грузимой при старте NoteBook мути и прочих служб. Высечь это еще раз я не сумел.
