Waiter!

[GSerg]

Нет, в ресторан мы не пойдём.

Вместо этого мы заимеем Ожидалку - которая может ожидать любой HANDLE, который допускает такое с собой обращение. Можно создать сколько угодно ожидалок и ожидать ими всякие запущенные процессы. Всё это не будет блокировать основной поток выполнения. Событие Complete - всё, что нам нужно.

Код предельно примитивен

Просьба заценить и... ну, вы знаете


Обновлённая версия в Кирпичах
http://bbs.vbstreets.ru/viewtopic.php?t=13842

[tyomitch]

Я бы использовал GetModuleHandle вместо LoadLibrary/FreeLibrary: kernel32 гарантированно уже загружен, и можно несколько выиграть в скорости.

[GSerg]

Хм...
LoadLibrary выполняет поиск полного имени в таблице загруженных dll. GetModuleHandle делает то же самое. Если оно уже загружено, то LoadLibrary возвращает загруженный HMODULE. Так что никакой разницы, по идее.

[tyomitch]

Разница в том, что с GetModuleHandle не нужно ни хранить хэндлы, ни потом "выгружать" библиотеки.
Код упрощается до:

Код: Выделить всё

Private Sub UserControl_Initialize()
  hGlobal = GlobalAlloc(GMEM_ZEROINIT, 42)
  If hGlobal = 0 Then Err.Raise 7
 
  PutMem1 hGlobal, &H68
  PutMem4 hGlobal + 1, INFINITE
  PutMem4 hGlobal + 5, &H82474FF  'push [esp+0x8]   (lParam of thread)
  PutMem1 hGlobal + 9, &HE8
  PutMem4 hGlobal + 10, GetProcAddress(GetModuleHandle("kernel32"), "WaitForSingleObject") - hGlobal - 10 - 4
 
  PutMem1 hGlobal + 14, &H68
  PutMem1 hGlobal + 19, &H68
  PutMem1 hGlobal + 24, &H68
  PutMem4 hGlobal + 25, WM_LBUTTONUP
  PutMem1 hGlobal + 29, &H68
  PutMem4 hGlobal + 30, UserControl.hWnd
  PutMem1 hGlobal + 34, &HE8
  PutMem4 hGlobal + 35, GetProcAddress(GetModuleHandle("user32"), "PostMessageA") - hGlobal - 35 - 4
  PutMem4 hGlobal + 39, &H4C2&
End Sub

Private Sub UserControl_Terminate()
  TerminateWait
  GlobalFree hGlobal
End Sub


[winnydows]

А как Waiter реализовать под VB.NET (2003) ? Простая конвертация даёт ошибки. Например As Any not supported.

[GSerg]

Например под VB.NET в нём нет необходимости. Всё делается методами FW.

[winnydows]

А можно плиз поподробнее как называются эти методы, чтобы в MSDN почитать или может у вас на сайте статейка на тему есть.

[tyomitch]

Класс WaitHandle, метод WaitOne.