это работает у меня уже 2 месяца

IF udf_CheckWinProcess('class')=.t. or type('createobject("Server.class")') = 'O'
oComScanServ = CREATEOBJECT("Server.class")
endif

***********************************************
*** udf_CheckWinProcess Ïåðåâ³ðÿº ÷è çàïóùåíèé ïðîöåñ â ïàìÿò³
***********************************************
*? udf_CheckWinProcess('scanserv')
Function udf_CheckWinProcess(lcWinApplicationName)
LOCAL llResult
llResult = .F.
LOCAL ll1Process, lcReqString, lnProcReturn, lcFileName, lnHandler
DECLARE INTEGER CreateToolhelp32Snapshot IN Win32api INTEGER,INTEGER
lnHandler = CreateToolhelp32Snapshot(2,0)
DECLARE INTEGER Process32First IN Win32api INTEGER, STRING
DECLARE INTEGER Process32Next IN Win32api INTEGER, STRING
ll1Process = .T.
DO WHILE .T.
IF ll1Process
lcReqString = CHR(44) + CHR(1) + CHR(0) + CHR(0) + REPLICATE(CHR(0),296)
lnProcReturn = Process32First(lnHandler,@lcReqString)
ll1Process = .F.
ELSE
lnProcReturn = Process32Next(lnHandler,@lcReqString)
ENDIF
IF lnProcReturn = 0
EXIT
ENDIF
lcFileName = SUBSTR(lcReqString,37,100)
IF UPPER ( lcWinApplicationName ) $ UPPER ( lcFileName )
llResult = .T.
EXIT
ENDIF
ENDDO
RETURN llResult
ENDFUNC