|
Перевести Код
Привожу код программы на ВБ. Суть которого заключается в запуске некоторой программы и ожидания завершения последней. Задача состоит в том чтобы перевести ниже приведенный текст кода на на Delphi и что немаловажно на VBScript (JScript)...
Private Declare Function OpenProcess Lib "KERNEL32" _
(ByVal dwAccess As Long, ByVal fInherit As Integer, ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32.dll" _
(ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
...
Runstring = "СтрокаЗапускаПриложенияСПараметрами"
WaitForProcessToEnd (Runstring)
...
Public Sub WaitForProcessToEnd(cmdLine As String)
'You can substitute a discrete time
'value in milliseconds for INFINITE.
Dim retVal As Long, pID As Long, pHandle _
As Long
pID = Shell(cmdLine)
pHandle = OpenProcess(&H100000, True, pID)
Do
retVal = WaitForSingleObject(pHandle, 50)
Loop While retVal <> 0
End Sub
С ув. Vitus.L
|