lnRarHandle=fCreateProcess('"'+gcStartPath+'WinRAR.exe" e "'+tcFileName+'" "'+THIS.c_dr_temp_path+'"')


DO WHILE .T.
  IF WaitForSingleObject(lnRarHandle,  0 )=0x00000102
*Процесс не закончен
    DOEVENTS
  ELSE
*Процесс закончен
    EXIT
  ENDIF
ENDDO

 = CloseHandle(lnRarHandle)

*Декларация функций для отслеживания внешних программ
  DECLARE INTEGER CreateProcess IN kernel32.DLL ;
    INTEGER lpApplicationName, ;
    STRING lpCommandLine, ;
    INTEGER lpProcessAttributes, ;
    INTEGER lpThreadAttributes, ;
    INTEGER bInheritHandles, ;
    INTEGER dwCreationFlags, ;
    INTEGER lpEnvironment, ;
    INTEGER lpCurrentDirectory, ;
    STRING @lpStartupInfo, ;
    STRING @lpProcessInformation

  DECLARE INTEGER WaitForSingleObject IN kernel32.DLL ;
    INTEGER hHandle, INTEGER dwMilliseconds

  DECLARE INTEGER CloseHandle IN kernel32.DLL ;
    INTEGER hObject

*Äåêëàðàöèÿ ôóíêöèé äëÿ îòñëåæèâàíèÿ âíåøíèõ ïðîãðàìì
DECLARE INTEGER CreateProcess IN kernel32.DLL ;
  INTEGER lpApplicationName, ;
  STRING lpCommandLine, ;
  INTEGER lpProcessAttributes, ;
  INTEGER lpThreadAttributes, ;
  INTEGER bInheritHandles, ;
  INTEGER dwCreationFlags, ;
  INTEGER lpEnvironment, ;
  INTEGER lpCurrentDirectory, ;
  STRING @lpStartupInfo, ;
  STRING @lpProcessInformation

DECLARE INTEGER WaitForSingleObject IN kernel32.DLL ;
  INTEGER hHandle, INTEGER dwMilliseconds

DECLARE INTEGER CloseHandle IN kernel32.DLL ;
  INTEGER hObject

lnRarHandle=fCreateProcess('WinRAR.exe e E:\1\015_invert.rar E:\2\')

DO WHILE .T.
  IF WaitForSingleObject(lnRarHandle,  0 )=0x00000102
*Ïðîöåññ íå çàêîí÷åí
    DOEVENTS
  ELSE
*Ïðîöåññ çàêîí÷åí
    EXIT
  ENDIF
ENDDO

= CloseHandle(lnRarHandle)

****************************************************************************************************************************
****************************************************************************************************************************
****************************************************************************************************************************
*** Çàïóñê âíåøíåé ïðîãðàììû è îæèäàíèå åå îêîí÷àíèÿ.
*http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com: 80 /support/kb/articles/Q191/ 5 / 84 .asp&NoWebContent= 1 
*http://msdn2.microsoft.com/en-us/library/ms687032.aspx

PROCEDURE fCreateProcess
  PARAMETERS tcProgramString

  LOCAL lcStart,lcProcessInfo,lcFile2Run,lnRetCode,lnHProcess
*Çàïóñê ïðîãðàììû
  #DEFINE NORMAL_PRIORITY_CLASS  32 
  lcStart = fCreateProcess_long2str( 68 ) + REPLICATE(CHR( 0 ),  64 )
  lcProcessInfo = REPLICATE(CHR( 0 ),  16 )

  lcFile2Run = tcProgramString + CHR( 0 )

  lnRetCode = CreateProcess( 0 , lcFile2Run,  0 ,  0 ,  1 , ;
    NORMAL_PRIORITY_CLASS,  0 ,  0 , @lcStart, @lcProcessInfo)
  IF lnRetCode =  0 
    RETURN .F.
  ENDIF
  lnHProcess = fCreateProcess_str2long(SUBSTR(lcProcessInfo,  1 ,  4 ))

  RETURN lnHProcess

********************
FUNCTION fCreateProcess_long2str
********************
  PARAMETERS m.longval

  PRIVATE i, m.retstr

  m.retstr = ""
  FOR i =  24  TO  0  STEP - 8 
    m.retstr = CHR(INT(m.longval/( 2 ^i))) + m.retstr
    m.longval = MOD(m.longval, ( 2 ^i))
  NEXT
  RETURN m.retstr

*******************
FUNCTION fCreateProcess_str2long
*******************

  PARAMETERS m.longstr

  PRIVATE i, m.retval

  m.retval =  0 
  FOR i =  0  TO  24  STEP  8 
    m.retval = m.retval + (ASC(m.longstr) * ( 2 ^i))
    m.longstr = RIGHT(m.longstr, LEN(m.longstr) -  1 )
  NEXT
  RETURN m.retval

lnRarHandle=fCreateProcess('"E:\3\WinRAR.exe" e "E:\1\015_invert.rar" "E:\2\"')