Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Launch another app
Message
De
10/01/2007 12:51:08
Alexandre Palma
Harms Software, Inc.
Alverca, Portugal
 
 
À
10/01/2007 12:37:49
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01184264
Message ID:
01184276
Vues:
11
DECLARE INTEGER ShellExecute IN SHELL32.DLL ;
	    INTEGER nWinHandle,;
	    STRING cOperation,;   
	    STRING cFileName,;
	    STRING cParameters,;
	    STRING cDirectory,;
	    INTEGER nShowWindow

ShellExecute(0,"Open","trp.exe","","c:\program files\dfds\trp manager",1)
>Suppose you wanted to have a short EXE that launches a second EXE as in the following:
>
>clear
>olddate = fdate('c:\program files\dfds\trp manager\trp.exe',1)
>newdate = fdate('\\tpdfiles\data\dfreeman\applications\trpmanager\trp.exe',1)
>
>if newdate > olddate
>	ans = messagebox("There is a newer version of TRP Manager available. " + ;
>		"Would you like to copy it to your workstation now?",3)
>	do case
>	case ans = 6
>		copy file '\\tpdfiles\data\dfreeman\applications\trpmanager\trp.exe' to ;
>			'c:\program files\dfds\trp manager\trp.exe'
>	case ans = 2
>		cancel
>	endcase
>endif
>
>do 'c:\program files\dfds\trp manager\trp.exe'
>
>
>But you wanted the first EXE to close at the end of the script and leave the second EXE running (trp.exe in this case).
>
>How would you do this?
Alexandre Palma
Senior Application Architect
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform