Блокировка

[Max!]

Как сделать , что бы моя прога блокировала открытие другои , тоесть она следит за конкретной прогой и если она была запущена , то она ее закрывает! Help!

[hCORe]

Max!, в который раз выкладываю содранный мной с книжки пример...
Смотри http://bbs.vbstreets.ru/viewtopic.php?p=27597#27597

[Max!]

Там нету! ошибочка ! Там нету ответа на мои вопрос!

[hCORe]

Там все немного по-другому . Создается процесс и отслеживается его завершение. Почему бы тебе не узнать PID нужной тебе проги и отслеживать его? База кода почти такая же...

[Max!]

Так мне надо не закрытие отслеживать а что бы мая прога сама закрывала другую в момент открытия!

[A.A.Z.]

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

'на форме таймер, интервал=1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim Str As String

Private Sub Form_Load()
Str = InputBox("Введи Caption окна, которое нужно закрывать" & vbCrLf & "Только чтобы оно точь-в-точь совпадало!")
End Sub

Private Sub Timer1_Timer()
Dim Wnd As Long
Wnd = FindWindow(vbNullString, Str)
If Wnd = 0 Then Exit Sub
PostMessage Wnd, 16, 0&, 0&
End Sub