CLEAR DO DECL lcwordsparm = "" lcwordsapp = "C:\Program Files\Microsoft Office\Office10\WINWORD.EXE" lcwordsdir = LEFT(lcwordsapp,RAT("\",lcwordsapp)-1) lcwordsprg = "WINWORD.EXE" lcwordsdef = SYS(2003) llwordok = .F. SET DEFAULT TO LEFT(lcwordsapp,RAT("\",lcwordsapp)-1) *--Does the app exist? IF ADIR(laDummy, lcwordsapp)=1 *--Can we run it? llwordok = RunAndWait(lcwordsprg, lcwordsparm, lcwordsdir) WAIT WINDOW "Finished Running Word 10" ENDIF RETURN PROCEDURE RunAndWait (lcApp, lcCmdLine, lcdir) #DEFINE INFINITE 0xFFFFFFFF LOCAL lcStartupInfo, lcProcInfo, hProcess, ; lnPrio, lnIBelieve1 lnIBelieve1 = 1 lnPrio = 32 && Priority of Process=Normal lcStartupInfo = CHR(68) + REPLI(CHR(0), 67) lcProcInfo = REPLI(CHR(0), 16) IF CreateProcess(0, m.lcApp+" "+m.lcCmdLine+CHR(0), 0,0,; m.lnIBelieve1, m.lnPrio,; 0, 0, @lcStartupInfo, @lcProcInfo) <> 0 * process and thread handles returned in ProcInfo structure hProcess = buf2dword(SUBSTR(lcProcInfo, 1,4)) hThread = buf2dword(SUBSTR(lcProcInfo, 5,4)) * waiting until the termination = WaitForSingleObject(hProcess, INFINITE) = CloseHandle(hThread) = CloseHandle(hProcess) ELSE RETURN .F. ENDIF PROCEDURE DECL DECLARE INTEGER CreateProcess IN kernel32; INTEGER lpAppName, STRING lpCmdLine, INTEGER lpProcAttr,; INTEGER lpThrAttr, INTEGER bInhHandles, INTEGER dwCrFlags,; INTEGER lpEnvir, INTEGER lpCurDir, ; STRING @lpStInfo, STRING @lpProcInfo DECLARE INTEGER GetLastError IN kernel32 DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject DECLARE INTEGER WaitForSingleObject IN kernel32; INTEGER hHandle, INTEGER dwMilliseconds RETURN FUNCTION buf2dword(lcBuffer) RETURN ASC(SUBSTR(lcBuffer, 1,1)) + ; ASC(SUBSTR(lcBuffer, 2,1)) * 256 +; ASC(SUBSTR(lcBuffer, 3,1)) * 65536 +; ASC(SUBSTR(lcBuffer, 4,1)) * 16777216 RETURN>Hi All!