function ShellExec(tcFileName,tcParameters,tcWorkDir,tcOperation) declare integer ShellExecute ; in SHELL32.dll ; integer nWinHandle,; string cOperation,; string cFileName,; string cParameters,; string cDirectory,; integer nShowWindow return ShellExecute(0,lcOperation,lcFileName,lcParameters,lcWorkDir,0)or WSH:
#define SW_SHOW_NORMAL 1 #define SW_SHOW_MINIMIZED 2 #define SW_SHOW_MAXIMIZED 3 oShell = createobject("WScript.Shell") oShell.Run("C:\vfp\ka\Runtime\clearwork.bat",SW_SHOW_MINIMIZED,.T.)HTH