Discussion :

[Invité(e)]

Bonjour à tous, j'ai un problème :

je souhaite créer un .exe qui effectue 1 action avant de lancer une autre application.

Pour ce faire, j'ai créé un fichier console dans Delphi avec ce code :

1. créer un répertoire

2. lancer une application depuis un autre répertoire

Il me refuse la compilation et j'ai l'impression que celà vient de l'appel à Shellapi. Il bloque sur l'argument "SW_SHOW".

Merci d'avance à tous pour votre aide,

Arnaud

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
30
31
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,  FileCtrl, shellapi;
 
begin
  { TODO -oUser -cConsole Main : implementation
 
{$R *.dfm}
 
 
//création du dossier : çà marche
 
 
begin
    CreateDir('C:\mytoto-temp');
end;
 
 
 
//Lancer une application : çà marche pas
 
begin
ShellExecute(0,'OPEN','C:\mondossier\appli.exe', Nil, Nil, SW_SHOW);
 
end;
 
 
end.

[Andnotor]

SW_SHOW est défini dans l'unité Windows. Tu peux aussi le remplacer par 5.

[Invité(e)]

MERCI, Merci beaucoup !!! çà marche super !

Sinon, je me demandais : est-ce qu'il faut que je tue le process qui a été lancé par l'appli en mode console (puisque je n'en ai plus besoin après les 2 cammandes lancées) où celà se fait automatiquement ? Je ne voudrais pas manger de la mémoire ou du CPU inutilement.

Encore Merci, Arnaud

[Andnotor]

Une application commence au begin et fini au end. du dpr. S'il n'y a pas de boucle infinie à l'intérieur, le programme se termine.

(Une application GUI a une boucle dans Application.Run pour la gestion des messages.)

[Invité(e)]

Merci beaucoup pour ta réponse !

Arnaud

[ero-sennin]

Un petit ?