Executer une application en mode console
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:
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. |
