FUNCTION UDF_Run( nUserStru, cParam  ) 
  LOCAL nState, cPar, cDir, cFile, cTmp, nTmp 
  LOCAL aParam, cRet := '', nRet, cChr := ';' 
  LOCAL cDataPath := leto_GetAppOptions(1) + DEF_SEP 
  LOCAL cLeto := DiskName(0) + ':\' + CurDir()+ '\' 
  
  IF left(cParam, 1) == 'A' .and. val(subs(cParam, 2, 5)) > 0 
 	 aParam := leto_S2A(cParam) 
  ELSEIF left(cParam, 1) == '{' .and. right(cParam, 1) == '}' 
 	 aParam := &( cParam ) 
  ELSEIF cChr $ cParam .or. '|' $ cParam 
 	 IF '|' $ cParam ; cChr := '|' 
 	 ENDIF 
 	 aParam := hb_aTokens(cParam, cChr) 
  ELSE 
 	 IF ( nTmp := At(' ', cParam) ) > 1 
 		 cTmp	:= left(cParam, nTmp-1) 
 		 cParam := subs(cParam, nTmp+1) 
 		 aParam := { cTmp, cParam } 
 	 ELSE 
 		 aParam := { cParam } 
 	 ENDIF 
  ENDIF 
  
  aParam := ASize(aParam, 4) 
  cFile  := aParam[1] 
  cPar	:= aParam[2] 
  cDir	:= aParam[3] 
  nState := iif( empty(aParam[4]), 1, val(aParam[4]) ) 
  nState := iif( empty(nState)	, 1, nState			) 
  
  IF ! empty(cFile) .and. Valtype(cFile) == 'C' 
 	 cFile := cLeto + cFile 
 	 cPar  := iif( empty(cPar), '', cPar )						//+ '-dir='+cDataPath 
 	 IF ! empty(cDir) .and. valtype(cDir) == 'C' 
 		 IF left(cDir, 2) == '.'+DEF_SEP ; cDir := subs(cDir, 3) 
 		 ELSEIF left(cDir, 2) == DEF_SEP ; cDir := subs(cDir, 2) 
 		 ENDIF 
 		 IF right(cDir,1) == DEF_SEP ; cDir := left(cDir, len(cDir)-1) 
 		 ENDIF 
 		 cDir := cLeto + cDir 
 	 ELSE 
 		 cDir := cLeto 
 	 ENDIF 
 	 nRet  := -1 
 	 IF file(cFile) 
 		 nRet := 0 
 		 nRet := ShellExecuteEx( 0, , cFile , cPar , cDir , nState ) 
 	 ENDIF 
 	 cRet := ltrim(str(nRet)) 
  EndIf 
  
 RETURN cRet 
 В тело сервера вставив процедуру ShellExecuteEx(), т.к. она возвращает PID после норм. запуска