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.