VBNet - Форум - Как определить когда приложение закрыто?

Вопрос: Как определить когда приложение закрыто? Добавлено: 17.02.04 18:30

Автор вопроса: .::EclipsE::. | ICQ: 208952501

Сам принцип я знаю, и сделал по такому принципу.
Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessID As Long
dwThreadID As Long
End Type
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const INFINITE = -1&
Public Sub ExecCmd(cmdline$)
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
' Инициализируем структуру STARTUPINFO:
start.cb = Len(start)
' Запускаем приложение:
ret& = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
' Ждем завершения запущенного приложения:
ret& = WaitForSingleObject(proc.hProcess, INFINITE)
ret& = CloseHandle(proc.hProcess)
End Sub

Private Sub Form_Load()
ExecCmd ("Notepad")
MsgBox "Работа Блокнота завершена", vbInformation, "Конец."
End Sub

Но проблемма в том, что пока приложение не закрыто программа не выполняет ни каких действий. А мне очень надо чтобы выполняла.......
Зарание спасибо!

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #1

Добавлено: 17.02.04 20:54

Запускай приложение в отдельном потоке и отслеживай его состояние.

Ответить

Номер ответа: 2 Автор ответа: POMAH ICQ: 223-574-928 Вопросов: 0 Ответов: 16	Профиль \| \| #2	Добавлено: 18.02.04 08:45
	WaitForSingleObject заставляет ОС перевести вызывающий поток в режим ожидания и пока объект ядра, который ты ожидаешь не "освободится" ОС не будет выделять этому потоку процессорное время. Как предложил Sharp: используй многопоточность. Ответить

Номер ответа: 3 Автор ответа: .::EclipsE::. ICQ: 208952501 Вопросов: 22 Ответов: 85	Профиль \| \| #3	Добавлено: 18.02.04 12:06
	Сенкс, попробую...... Ответить

Номер ответа: 4
Автор ответа:

NeForm@t

ICQ: 252999255

Вопросов: 36
Ответов: 247

Web-сайт: g--k.newmail.ru
Профиль | | #4

Добавлено: 18.02.04 23:14

ИМХО тут лучше использовать FindWindow и проверять по таймеру или когда надо существует ли ещё созданный хэндл(или можно по ProccesID)

Ответить

Страница: 1 |