ZVI,
Спасибо. К dll еще вернусь.
Но сейчас надо с Shell аккуратно довоевать. Ногами его и ф топку.
На самом деле я погорячился насчет
Дмитрий77
А вот Shell (который VB6-Production) чего-то ждет и висит до тех пор пока форма не загрузится.
Но я всю жизнь использовал этот
1.
Shell (, vbТакойТоБлинФокус)
...
Думаю хорошая идея проинспектировать все свои коды на предмет ЧИСТКИ от поганца
Идея может и хорошая, но менять Shell на ShellExecute в существующих кодах надо аккуратно.
Где-то надо (как в случае приведенном в первом посте).
Где-то не имеет смысла (например при командах типа Shell ("explorer" ...), либо когда известно что запускаемое приложение быстрое и скорость запуска не зависит от к-ва данных и т.п.)
А вот в одном месте я просто с разбегу накололся:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Main()
...
' предполагая что FormMain будет грузиться долго запускаем заставку для ублажения юзера
Shell App.Path & "\screen.exe", vbNormalFocus
FormMain.Show
'код загрузки FormMain
Private Sub Form_Load()
'В самом начале и без проверок!!!
Dim hwndScreen As Long
hwndScreen = FindMyWindow(3) 'WINDOWTITLE_SCREENSAVER
...Do-do-do
SendCommandToScreen hwndScreen, 5 ' отображение загрузки через ProgressBar на заставке
...Do-do-do
SendCommandToScreen hwndScreen, 50 ' отображение загрузки через ProgressBar на заставке
...Do-do-do
SendCommandToScreen hwndScreen, 100 ' отображение загрузки через ProgressBar на заставке
Фишка в чем.
hwndScreen -'это окно заставки
И доступно оно будет (<> 0) только когда форма заставки загрузится (в приложении screen.exe)
Когда я эту фигню делал, меня занимал вопрос:
А вдруг я не смогу поймать hwndScreen = FindMyWindow(3) ?
Ведь я только запустил screen.exe и окно могло НЕ УСПЕТЬ запуститься.
И честно готовился чего-нибудь дописывать.
В итоге все оказалось OK. Я об этом забыл.
А в рамках начатой было компании по борьбе с Shell которую я было развернул, сделав замену
1.
2.
'Shell App.Path & "\screen.exe", vbNormalFocus
ShellExecute 0, "open", App.Path & "\screen.exe", "", App.Path, SW_SHOWNORMAL
я получил мгновенный выход
и незапуск нужного мне окна hwndScreen
на момент FindMyWindow(3)
как итог полный сбой алгоритма
Т.е. я неявно использовал свойство Shell (VB6) не выходить до загрузки формы.
Ну, все хорошо в своем месте в свое время. А понимание никогда не повредит.
