Lancement d'une compilation innosetup en ligne de commande

**LuckyLuke56** · 26/10/2009, 06h33

Bonjour à tous.
1° question
Après création d'un fichier *.iss pour innosetup par delphi4, je souhaite lancer automatiquement la compilation de ce fichier toujours par mon application delphi4.
J'ai placé ce code :

Code :

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

ShellExecute(0,'OPEN','Compil32/cc C:\MonFolder\MyFile.iss', Nil , Nil, SW_SHOW)

Malheureusement, rien ne se passe sinon l'ouverture du fichier précisé.
2° question
le nom du fichier varie je souhaite donc le placer en variable mais delphi 4 ne reconnait pas la syntaxe de ma variable.
Je place cette variable :

Code :

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

PChar(FichierInno)

en lieu et place de mon path du fichier.

Merci pour votre aide car mes recherches sont vaines.

**Dr.Who** · 26/10/2009, 23h33

1) relis la doc d'innoSetup

2) relis la doc sur ShellExecute, notement la section qui explique l'argument des parametres.

Code :

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

ShellExecute(0, 'open', 'compil32.exe', '/cc unfichier.iss', nil, sw_show);

**LuckyLuke56** · 27/10/2009, 21h11

Merci pour cette syntaxe. Ce n'est pas faute d'avoir cherché mais tout semble toujours clair pour ceux qui savent.
Pour l'ouverture c'est ok mais il me reste le souci de la variable du fichier à ouvrir qui elle me pose toujours problème.
J'essaie de recréer la chaine mais elle n'est jamais reconnue!
Merci

**Dr.Who** · 28/10/2009, 00h19

oui désolé pour le ton neutre de mes reponses, parfois, on "oublis" que nous aussi avons été "gros noob" en prog ... et qu'on mets du temps à avoir la RTFM attitude.

alors pour le fichier :

le plus simple crée une fonction :

Code :

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

1
2
3
4
5
6
function compileISSFile(const aFileName: string): boolean;
var param : string;
begin
  param := '/cc "'+aFileName+'"';
  result := ShellExecute(0, 'open', 'compile32.exe', PChar(param), nil, SW_SHOW) > 32;
end;

on peu aller plus loin en faisant :

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
 
function compileISSFile(const aFileName: string; const useISSC: boolean = false {compile32.exe by default}): boolean;
var
  param : string;
  wdir : string;
begin
  wdir := extractFilePath(aFileName);
  param := '"'+aFileName+'"';
  case useISSC of
    false : begin
      param := '/cc '+param;
      result := ShellExecute(0, 'open', 'compile32.exe', PChar(Param), PChar(WDir), 5) > 32;
    end;
    true : result := ShellExecute(0, 'open', 'issc.exe', PChar(Param), PChar(wdir), 5) > 32;
  end;
end;