作者在 2015-03-13 11:24:55 发布以下内容
FileName=GETFILE()
DoOut(0,'OPEN',JUSTFNAME(FileName),'',JUSTPATH(FileName),9)
*------------------------------------------------------------------------------------------
FUNCTION DoOut
PARAMETERS lnHwnd,lcCom,lcFile,LcPra,lcPath,lcMode
DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGER hwnd,STRING,STRING,STRING,STRING,LONG
Shellexecute(lnHwnd,lcCom,lcFile,LcPra,lcPath,lcMode)
CLEAR DLLS "ShellExecute"
ENDPROC
