Дождаться выполнения RUN

[RozAlex]

Доброе утро, ClaList.

Вы писали 14 сентября 2005 г., 15:17:06:

VY> SEInfo LIKE(SHELLEXECUTEINFO)

VY> CLEAR(SEInfo)
VY> SEInfo.cbSize = SIZE(SEInfo)
VY> SEInfo.hwnd = TARGET{PROP:Handle}
VY> SEInfo.lpFile = ADDRESS(szPath)
VY> SEInfo.lpParameters = ADDRESS(szParameters)
VY> SEInfo.fMask = SEE_MASK_NOCLOSEPROCESS

VY> IF <надо скрыть окно процесса>
VY> SEInfo.nShow = SW_HIDE
VY> ELSE
VY> SEInfo.nShow = SW_SHOWNORMAL
VY> END

VY> IF ShellExecuteEx(SEInfo) AND SEInfo.hProcess
VY> ! Ожидаем пока не завершится процесс
VY> WaitForSingleObject(SEInfo.hProcess, INFINITE)
VY> END

А можно чуток по-подробней о WaitForSingleObject?
Точнее, о её первом параметре - SEInfo.hProcess.

Я описАл функцию так:

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

WaitForSingleObject      ( HANDLE hProcess,                      | идентификатор объекта
                           DWORD  dwTimeout                      | время ожидания в миллисекундах
                         ),BOOL,PROC,PASCAL

но ругань идет на SEInfo.hProcess
Что-то тут не так?

--
С уважением,
RozAlex
rozalex@pisem.net
ICQ#: 48572306
YM!#: RozAlex2000
IRC : irc.rinet.ru:6669 #Clarion, #1C

Пристёгнуто: <none>

===
"Не надо кайф ломать серьезным людям ..."
===