Перевести Код

[Vitus.L]

Привожу код программы на ВБ. Суть которого заключается в запуске некоторой программы и ожидания завершения последней. Задача состоит в том чтобы перевести ниже приведенный текст кода на на 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

[Argvlan]

Вот пример с Torry's Delphi Page. Может чемто поможет?