Discussion :

[leserapheen]

Bonjour,

je suis débutant en pascal et j'aimerais vous poser quelques questions :

- tout d'abord connaître la commande pour executer un fichier .exe qui se trouve sur un lecteur dvd (dont je ne connais pas forcément la lettre mais où le programme pascal se trouve).
- ensuite savoir comment détecter qu'un programme est en cours.

Merci d'avance !!

[Alcatîz]

Bonjour !

Pour pouvoir répondre à tes questions, il faudrait tout d'abord savoir si le programme qui doit en exécuter un autre ou qui doit détecter l'exécution d'un autre est un programme DOS, Windows, Linux ou autre.

Soit dit en passant, si c'est un programme DOS, ça me semble assez mal barré.

[leserapheen]

C'est un programme windows (.exe). Mais je pensait qu'on pouvait executer n'importe quel fichier grace a une commande simple genre exe(). Enfait mon but est de lancer une application .exe et de detecter le moment ou elle s'arrete pour continuer le programme en pascal.

[Alcatîz]

Tu peux utiliser CreateProcess pour lancer le programme et, ensuite, utiliser GetExitCodeProcess pour détecter sa terminaison.

Voici un tout petit exemple : le programme P1 lance le programme P2 et attend que celui-ci soit fermé :
(syntaxe Virtual Pascal)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Program P1;
 
Uses WinCRT, Windows;
 
Var StartupInfo : tStartupInfo;
    ProcessInformation : tProcessInformation;
    ExitCode : DWord;
 
Begin
  InitWinCRT;
  FillChar(StartupInfo,SizeOf(StartupInfo),0);
  StartupInfo.cb := SizeOf(StartupInfo);
  FillChar(ProcessInformation,SizeOf(ProcessInformation),0);
  Write('CreateProcess : ');
  if CreateProcess('P2.exe',Nil,Nil,Nil,True,NORMAL_PRIORITY_CLASS,Nil,Nil,StartupInfo,ProcessInformation)
     then
       begin
         WriteLn('OK');
         Write('Attente de la fermeture du processus... ');
         repeat
           GetExitCodeProcess(ProcessInformation.hProcess,ExitCode);
         until ExitCode <> STILL_ACTIVE;
         WriteLn('OK');
       end  
     else
       WriteLn('Erreur !');       
  ReadLn;
  DoneWinCRT;
End.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Program P2;
 
Uses WinCRT;
 
Begin
  InitWinCRT;
  Write('Pressez Enter pour fermer ce programme... ');
  ReadLn;
  DoneWinCRT;
End.

[leserapheen]

Merci !!

Comment faire si le second programme n'est pas un programme que j'ai creer ? Et il me met une erreur (j'utilise dev-pascal) concernant les balises InitWinCRT; et DoneWinCRT;

(Y a t'il moyen de recupérer Virtual pascal ?? Car je ne le trouve nul part sur la toile :s).

[Alcatîz]

Comment faire si le second programme n'est pas un programme que j'ai creer ?

Cela n'a aucune importance, ça devrait fonctionner avec n'importe quel programme

Et il me met une erreur (j'utilise dev-pascal) concernant les balises InitWinCRT; et DoneWinCRT;

Ces fonctions n'existent sans doute pas dans l'unité WinCRT de Free Pascal. Elles ne sont pas du tout indispensables.

(Y a t'il moyen de recupérer Virtual pascal ?? Car je ne le trouve nul part sur la toile :s).

http://www.softpedia.com/progDownloa...oad-17920.html
... et bientôt disponible en téléchargement sur Developpez.com !