Bonjour.
J'ai utilisé cet article de la FAQ qui fonctionne parfaitement, mais Lazarus indique que la commande CommandLine est Deprecated. Une autre commande, ApplicationName, qui fait la même chose est également notée Deprecated.
Il semble qu'il faille maintenant utiliser préférentiellement la commande Executable, ce qui donne :
et qui fonctionne également apparemment sans problème.
Code Pascal : 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 Uses Classes, SysUtils, Process; Var Processus : TProcess; Begin (* Création du processus *) Processus := TProcess.Create(Nil); (* Définition de la commande à exécuter *) //Processus.CommandLine := 'fpc'; DEPRECATED //Processus.ApplicationName:='fpc'; DEPRECATED Processus.Executable:='fpc'; (* On Attendra la fin du programme externe avant de continuer *) Processus.Options := Processus.Options + [poWaitOnExit]; (* Tout est prêt pour l'exécution *) Processus.Execute; (* Libération du processus *) Processus.Free; End.
En espérant que ça puisse être utile et que ce soit posté au bon endroit,
amicalement,
naute.
Partager