[TP7] Encore une procédure ou un prg

Encore une procédure ou un prg [TP7] - Programmation

Marsh Posté le 24-02-2001 à 10:11:53    

Salut !
 
Y'a-t'il un ordre en TP7 qui permet au prg d'éxecuter un autre prg (.pas ou .exe).
 
Je m'explique :
J'ai un prg "présentation" et un autre "contenu principal" comment lui dire :
 
 

  • Fin du prg "presentation"
  • Ouvre prg "contenu principal"
  • Quitte prg "presentation"
  • Execute prg "contenu principal"


Merci de me répondre !

Reply

Marsh Posté le 24-02-2001 à 10:11:53   

Reply

Marsh Posté le 24-02-2001 à 16:26:44    

Oui, de mémoire, il y a ce qu'il faut (mais je ne me souviens plus du nom de la fonction).
 
Mais, dis-moi, ce ne serait pas plus simplement une procédure que tu voudrais faire ?

Reply

Marsh Posté le 25-02-2001 à 11:30:18    

Si on peut me filer une procédure pour passer cette étape, c'est super !

Reply

Marsh Posté le 25-02-2001 à 11:33:08    

tu vas sur l'événement onClose de ton prg et tu lui donne la commande shellexcécute (qqchose dans ce style :) )
si tu utilise un EDI comme Delphi ou C++ Builder :lol:


---------------
Tout à commencé par un rêve...
Reply

Marsh Posté le 25-02-2001 à 15:05:57    

Ahhhh pour une fois que je peux aider qqun ici ;-)
Attends j'ouvre turbo pascal j'ai un prog qui fait ca...
Bon euh je vais essayer de t'expliquer ca, au ca sou regardes dans l'aide de TP sous Exec.
Pour commencer tu dois reserver de la memoire pour ton prog, je sais pas si c hyper important et si ca marche sans mais ils le mettent dans l'aide alors ...
au debut de ton programme tu met
{$M 5000,0,0} (euh 5000 tu remplaces par la taille de mémoire dont t'as besoin mais regarde dans l'aide pour plus de details)
après quand tu veux executer un prog externe (un .exe)
tu met
USES Dos; (*enfin tu rajoutes dos dans la liste des tes uses*)
Swapvectors;
Exec(chemin de ton programme,paramètres);
Swapvectors;
Et après bah tu fais se terminer ton ancien programme
pour prendre un exemple
 
Program pinghwfr;
USES Dos;
{$M 5000,0,0}
Begin
  Swapvectors;
  Exec ('C:\windows\ping.exe','www.hardware.fr');
  Swapvectors;
End.
 
et voila euh j'ai peut etre pas été super clair mais j'aurais au moins essayé

Reply

Marsh Posté le 27-02-2001 à 19:04:31    

Eh ben pour une fois qu'y-a quelqu'un pour comprendre et répondre à mes messages !
 
Ben Merci !
 
Je' vais essayer le plus tôt possible et je te dis si ça marche !
 
Allez,BYE ! :hello:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed