> DO DECL > lcivansparm = " /A /M:TECHSUPPORT;SYSERROR;TMCONFIG;AIDOWN" > lcivansapp = "c:\Program Files\IVANS\Transman\Transman.exe" > lcivansdir = LEFT(lcivansapp,RAT("\",lcivansapp)-1) > lcivansprg = "Transman.exe" > CD (lcivansdir) > SET DEFAULT TO LEFT(lcivansapp,RAT("\",lcivansapp)-1) > IF adir(laDummy, m.lcivansprg)=1 > * the exe has to be in the current Dir > = RunAndWait(lcivansprg, lcivansparm, lcivansdir) > ENDIF > > >PROCEDURE RunAndWait (lcApp, lcCmdLine, lcdir) > > LOCAL lcStartupInfo, lcProcInfo, hProcess, ; > lnPrio, lnIBelieve1 > lnIBelieve1 = 1 && Don't remember what that was > 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 > Wait Wind "Hurray" > > ELSE > Wait Wind "Still No Luck" > 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 > >>