>function lbShellEx >******************* Copyright of Geac Computers, Inc. ********************* >* Name : lbShellEx >* Purpose : Run an external program using the windows API >* : >* Originated : 05/12/1999 RKA >* : >* Parameters : lcFileName, lcPath >* Called from : >* Returns : .t. if successfull .f. if failed >**************************************************************************** >parameters lcFile, lcPath > >private lnShellEx, lcOp, lcArg, llRetVal, lnRetVal > >if pcount() = 1 > lcPath = '' >endif >lcOp = 'open' >lcArg = '' > >** -- Register Win API >lnShellEx = RegFN("ShellExecute","I@C@C@C@CI","I","SHELL.DLL") > >** -- CALL API Function >lnRetVal = CallFN(lnShellEx, 0, @lcop, @lcfile, @lcarg, @lcpath, 9) > >** -- Prepare return value >llRetVal = (lnRetVal > 32) > >return llRetVal >Thank you very much.