DECLARE INTEGER ShellExecute ;
	    IN SHELL32.DLL ;
	    INTEGER nWinHandle,;
	    STRING cOperation,;   
	    STRING cFileName,;
	    STRING cParameters,;
	    STRING cDirectory,;
	    INTEGER nShowWindow

LPARAMETERS m.tcFileName,m.tcWorkDir,m.tcOperation,m.tnShowWindow
LOCAL m.lcFileName,m.lcWorkDir,m.lcOperation,m.lnShowWindow

IF EMPTY(m.tcFileName)
	RETURN - 1 
ENDIF
m.lcFileName=ALLTRIM(m.tcFileName)
m.lcWorkDir=IIF(TYPE("m.tcWorkDir")="C",ALLTRIM(m.tcWorkDir),"")
m.lcOperation=IIF(TYPE("m.tcOperation")="C" AND NOT EMPTY(m.tcOperation),ALLTRIM(m.tcOperation),"Open")
lnShowWindow=IIF(TYPE("m.tnShowWindow")="N",m.tnShowWindow, 1 )
RETURN ShellExecute( 0 ,m.lcOperation,m.lcFilename,"",m.lcWorkDir,m.lnShowWindow)

THIS.ShellExecute(m.lcFileName)