|
автор: GreenOrc (12.07.2006 в 00:00) |
|
| Добрый день.
есть такая проблемка.
с помощью команды SHELL запускается некий процесс, номер которого известен. необходимо подождать, пока этот процесс есть в задачах и только затем продолжить выполнения кода.
если кто-нибудь в курсе - ответьте плз. | |
|
| |
|
автор: filosof (12.07.2006 в 00:00) |
|
| функция написанная не мной извините автора не знаю Наверное пробелемы с константами возникнут потому что выципел из модуля с WinApi функциями
Public Function RunAndWait(ComLine As String, DefaultDir As String, ShowFlag As Long) As Boolean
Dim si As STARTUPINFO
Dim pi As PROCESS_INFORMATION
si.wShowWindow = ShowFlag
si.dwFlags = STARTF_USESHOWWINDOW
If CreateProcess(vbNullString, ComLine, ByVal 0&, ByVal 0&, False, 0, ByVal 0&, DefaultDir, si, pi) Then
WaitForSingleObject pi.hProcess, INFINITE
CloseHandle pi.hProcess
RunAndWait = True
Exit Function
End If
RunAndWait = False
End Function | |
|
| |
|
автор: filosof (12.07.2006 в 00:00) |
|
| http://am.rusimport.ru/MsAccess/topic.aspx?ID=119 | |
|
| |
|
автор: GreenOrc (12.07.2006 в 00:00) |
|
| Re: номер запущенного процесса shell спасибо.
функция конечно отдельно без описания своего типа STARTUPINFO работать не будет :)
но меня на самом деле устроил пример Анатолия из Киева с созданием объекта.
теперь пытаюсь найти класс WScript, чтобы может ещё чего полезного узнать.. | |
|
| |