LOCAL lcFullPathName lcFullPathName = DBF(THISFORM.cRMCursorName) CloseUsed(THISFORM.cRMCursorName) _Run("C:\VSO3\Utilities\VSORM\VSORM.EXE '" + lcFullPathName + "'", ".", "HID", .T.)>"which is your favourite if variable type was the utmost important for you, precision and all"
FUNCTION CloseUsed() *** Checks to see if the given alias is in use and closes it LPARAMETERS tcAlias IF USED(tcAlias) USE IN (tcAlias) ENDIF ENDFUNC_Run() is warpper for Late Ed Rauh's class
FUNCTION _RUN() *** Parameters *** tcCommandLine: Char: Full Command including parameters *** tcLaunchDir : Char: The directory where the application is to be launched *** tcWindowMode : Char: Can be *** "NOR" - Run Normal *** "MIN" - Run Minimized *** "MAX" - Run Maximized *** "HID" - Run Hidden *** tlExecBG : Logical: .T. if you want the application to run in the *** background and continue with VFP execution *** irrespective of the app status *** .F. default - wait for the application to *** terminate before continuing VFP execution LPARAMETERS tcCommandLine, tcLaunchDir, tcWindowMode, tlExecBG LOCAL luRetVal, loProcess loProcess = CREATEOBJECT("cAPI_AppRun", tcCommandLine, tcLaunchDir, tcWindowMode) IF tlExecBG loProcess.LaunchApp() ELSE loProcess.LaunchAppAndWait() ENDIF luRetVal = loProcess.CheckProcessExitCode() RELEASE loProcess RETURN luRetVal ENDFUNC