Как запустить внешнюю программу и дождаться окончания ее выполнения

OleObject wsh 

integer li_rc 



CONSTANT integer MAXIMIZED = 3 
CONSTANT integer MINIMIZED = 2 
CONSTANT integer NORMAL = 1

CONSTANT boolean WAIT = TRUE 

CONSTANT boolean NOWAIT = FALSE 



wsh = CREATE OleObject 

li_rc = wsh.ConnectToNewObject( "WScript.Shell" ) 



li_rc = wsh.Run("Notepad" , NORMAL, WAIT) 

messagebox("hello", "world")