Запуск внешних приложений

[VMS$]

Подскажите, pls, как узнать момент завершения запущенного приложения из программы VB, (например архиватора, чтоб узнать момент готовности архива)?
И еще вопросик, как узнать имя окна по ProcessID?

[Urvin]

На головном vbstreets.ru есть статья об этом деле.

[VMS$]

На головном vbstreets.ru есть статья об этом деле.

Не нашел я статейки. Пробовал GetWindow(...) и GetTreadInfo(...) (или как там). В отладчике процесс ловится, в реальнои запуске -нет. Почему?

[Yurich]

Для решения похожей проблемы я создавал ОСХ-компонент на VC++. Работает безупречно. Первоисточник не помню. Решать эту задачу на VB лень.

STARTUPINFO si;
PROCESS_INFORMATION pi;
unsigned long Result;

long C::RunProcess(LPCTSTR CmdLine)
{
// TODO: Add your dispatch handler code here
ZeroMemory( &si, sizeof(si) );
si.cb = sizeof(si);
si.wShowWindow = SW_SHOW;
si.dwFlags = STARTF_USESHOWWINDOW;

if (!CreateProcess(NULL,(LPSTR)CmdLine,NULL,NULL,FALSE,
CREATE_NEW_CONSOLE|NORMAL_PRIORITY_CLASS,NULL,NULL, &si, &pi))
return 0;
WaitForSingleObject(pi.hProcess,INFINITE);
GetExitCodeProcess(pi.hProcess,&Result);

return pi.dwProcessId;
}
void C::WaitProcess()
{
// TODO: Add your dispatch handler code here
WaitForSingleObject(pi.hProcess,INFINITE);
GetExitCodeProcess(pi.hProcess,&Result);
}
void C::CloseProcess(long ProcID)
{
HANDLE hProcess;
hProcess=OpenProcess(PROCESS_TERMINATE, 0, ProcID);
if (hProcess!=0)
{ TerminateProcess(hProcess,0);
CloseHandle(hProcess);
}
}

[Dagobert]

Есть статья: http://www25.brinkster.com/msvbasic/default.asp?p=execwait&s=vb

[jSergey]

Есть статья: http://www25.brinkster.com/msvbasic/default.asp?p=execwait&s=vb

Статьи уже нет

[AjaxVS]

Подключаем WMI...

В начале:

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

set wmi = createobject("WinMgmts:")
set oQ = wmi.ExecQuery("select * from Win32_Process where name = " & s_imya_progi_dlya_otslejki)
for each o in oQ
i = o.ProcessID
next


Фиксирование окончания:

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

set oQ = wmi.ExecQuery("select * from Win32_Process where ProcessID = " & i )
b_est = false
for each o in oQ
b_est = true
exit for
next


Ясно?

[tyomitch]

Это что же, ты предлагаешь по таймеру проверять, жив ли ещё процесс?

[hCORe]

Ё-моё! В "Кирпичный завод"! Искать "Waiter"! Автор GSerg!
В "Популярные вопросы"! Искать "Контроль за приложениями" и "WaitForSingleObject"! Примитив, зато автор я (от скромности не помру)!