lnVal=shellexec('Filename','FileDirectory','Open','')
do case
case lnVal = 2
=messagebox('File Open failed - Bad Association',16,'Error Message')
case lnVal = 29
=messagebox('File Open failed - Failure to load Application',16,'Error Message')
case lnVal = 30
=messagebox('File Open failed - Application is busy',16,'Error Message')
case lnVal = 31
=messagebox('File Open failed - The file you have tried to open has no Application Association',16,'Error Message')
endcase
FUNCTION ShellExec
LPARAMETERS lcFileName, lcWorkDir, lcOperation, pcParameters
LOCAL pp, lcParam
pp = pCount()
if pp>3
lcParam = pcParameters
else
lcParam = ''
endif
lcWorkDir=IIF(type("lcWorkDir")="C",lcWorkDir,"")
lcOperation=IIF(type("lcOperation")="C",lcOperation,"Open")
DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
RETURN ShellExecute(0,lcOperation,lcFilename,lcParam,lcWorkDir,1)
*ENDFUNC ShellExecute