Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Ryan Lashway
  Where is Ryan Lashway?
 Warrensburg
 New York - United States
 Ryan Lashway
 To: Ryan Lashway
  Where is Ryan Lashway?
 Warrensburg
 New York - United States
 Ryan Lashway
 Tags
Subject: RE: Close App, then Open another App
Thread ID: 112448 Message ID: 112453 # Views: 1 # Ratings: 0
Version: Visual FoxPro 9 Category: General VFP Topics
Date: Wednesday, November 08, 2006 6:24:55 PM         
   


SELECT sys_settings
GOTO TOP
AppPath = ALLTRIM((sys_settings.ExeFile))
cFindFile = FILE(AppPath, 1)
IF cFindFile = .T.
DECLARE INTEGER ShellExecute IN SHELL32.DLL ;
INTEGER lnHWnd, ;
STRING lcAction, ;
STRING lcFileName, ;
STRING lcExeParams, ;
STRING lcDefDir, ;
INTEGER lnShowWindow
CLOSE DATABASES ALL
ShellExecute(0,"open", AppPath,"","",1)
QUIT
ENDIF

seems to work.

> The main app runs outside of foxpro but I can not get the second app to run. From within foxpro they both run.
>
> I have a full path stored in the sys_settings.exeFile
>
> > > How can I close a foxpro exe before opening another, with my code below it closes both for some reason, if I run it from within foxpro however it works great.
> > >
> > >
> > > SELECT sys_settings
> > > GOTO TOP
> > > AppPath = ALLTRIM((sys_settings.ExeFile))
> > > cFindFile = FILE(AppPath, 1)
> > > IF cFindFile = .T.
> > > CLOSE DATABASES ALL
> > > RUN /N &AppPath
> > > ENDIF
> > > QUIT
> > >
> > > Ryan J. Lashway
> > > http://www.lashtech.com

> >
> > Ryan,
> >
> > With RUN /N &AppPath you invoke another application. And with "QUIT" you terminate the parent application. In your code there is no command that would "close both applications".
> >
> > Will both applications run if you remove "QUIT" above?
> >
> > Keep in mind that file() looks for file in the VFP PATH, but RUN recognized files only in the current directory (if you do not porovide the fullpath).
> >
> > Best Wishes,
> >
> > Yuri Rubinov

>
>
>
> Ryan J. Lashway
> http://www.lashtech.com




Ryan J. Lashway
http://www.lashtech.com

ENTIRE THREAD

Close App, then Open another App Posted by Ryan Lashway @ 11/8/2006 5:40:59 PM
RE: Close App, then Open another App Posted by Yuri Rubinov @ 11/8/2006 5:54:18 PM
RE: Close App, then Open another App Posted by Ryan Lashway @ 11/8/2006 5:59:30 PM
RE: Close App, then Open another App Posted by Yuri Rubinov @ 11/8/2006 6:20:15 PM
RE: Close App, then Open another App Posted by Ryan Lashway @ 11/8/2006 6:24:55 PM