Discussion :

[pyrofrag]

Bonjour

Je souhaiterai savoir s'il est possibl de récupérer le résultat de mon programme car je lui ai dit de retourner -3 pour un type d'erreur et -1 autrement.

Le hic c'est que la fonction Exec n'a pas l'air de récupérer ces codes de retour lorsque je fais un try catch (disons que meme si le programme exe ne marche pas il considère que la commande shell elle c'est bien passée. logique on me dira mais moi ça m'aide pas).

Bref si vous connaitriez une option à rajouter, j'ai bien essayé un DosError mais inno setup me dit qu'il lui faut un BEGIN et je ne vois pas pourquoi et quand je mets ce BEGIN ça ne marche pas mieux (il me dit Identifier expected à la ligne uses...)

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
 
function Filesystem(Param : String): String;
BEGIN
Uses
	Dos;
Var
	ResultCde: Integer;
	Dir : String;
begin
	ResultCde := 0;
	Dir := ExpandConstant('{app}')+'/lib';
    Exec('cmd', ExpandConstant('/c monprog.exe parameters'), '', SW_SHOW, ewWaitUntilTerminated, ResultCde);
    ResultCde:=DosError;
    MsgBox('ResultCde= ''' + ResultCde + '''.', mbInformation, mb_Ok);
    Result := Dir;
end;
END;

[ShaiLeTroll]

J'ignore d'où vient cette fonction Exec, moi je ne l'ai ni dans Delphi, ni dans l'API,

sinon, tient j'ai participer à ce sujet , il peut t'intéresser pour remplacer Exec par CreateProcess\CreatePipe

[Cl@udius]

Salut

J'ignore d'où vient cette fonction Exec, moi je ne l'ai ni dans Delphi, ni dans l'API

Sauf erreur de ma part nous sommes dans un script InnoSetup. Sous IS la fonction Exec existe bien. Un genre de ShellExecute destiné uniquement aux exécutables et batch.

@pyrofrag
Donc je verrais plutôt quelque chose comme ça:

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
 
[Code]
function FileSystem(Param: string): string;
var
  ResultCde: Integer;
begin
  Result := '';
  if Exec('MonProg.exe', Params, '', SW_SHOW, ewWaitUntilTerminated, ResultCde) then
  begin
    // OK
    MsgBox(Format('Exit code = %d', [ResultCde]), mbInformation, mb_Ok);
    Result := ExpandConstant('{app}')+'\lib';
  end
  else
    // Echec
    MsgBox(Format('Error code = %d', [ResultCde]), mbInformation, mb_Ok);
end;

@+ Claudius

[pyrofrag]

J'ignore d'où vient cette fonction Exec, moi je ne l'ai ni dans Delphi, ni dans l'API,

sinon, tient j'ai participer à ce sujet , il peut t'intéresser pour remplacer Exec par CreateProcess\CreatePipe

Ce n'est peut être pas en Delphi mais bel et bien présent en Pascal :
http://cyberzoide.developpez.com/info/turbo/chap10.php3

A la fin tu verras il parle de la fonction Exec et sinon sur le net j'ai trouvé pas mal de tutos.
@Claudius : Merci pour ta réponse je vais essayer c'est vrai que moi j'avais déjà fait le test if sur le fonction Exec en pensant que le retour d'erreur serait remonté (i.e. que la fonction Exec retournerait faux si mon programme avait retourné faux) mais finalement ça ne marche pas mais peut etre que resultcode lui me donnera satisfaction

[pyrofrag]

Je me bats toujours avec cette histoire de programme...

J'ai essayé deux méthodes :
Exec('cmd',ExpandConstant('/c mon progs.exe mes params'), ' ', SW_SHOW, ewWaitUntilTerminated, ResultCde)
et
Exec('my prog.exe','my params', '', SW_SHOW, ewWaitUntilTerminated, ResultCde)

et rien n'y fait il me retourne les codes DOS suivant :
Runtime error 1 - Invalid function number
Runtime error 2 - File not found
Runtime error 3 - Path not found
Runtime error 4 - Too many open files
Runtime error 5 - File access denied
Runtime error 6 - Invalid file handle
Runtime error 12 - Invalid file access code
Runtime error 15 - Invalid drive number
Runtime error 16 - Cannot remove current directory
Runtime error 17 - Cannot rename across drives

mais pas le retour d'erreur de mon programme .exe....

Et j'ai beau cherché je ne trouve aucune info sur cette fonction Exec !!!!!!

[fregolo52]

salut,

c'est très bizarre !!
En théorie ça fonctionne soit avec Exec ou ShellExec.
Quel est le code d'erreur ? Est ce le code 2 systématiquement ?

Code :

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

Exec('cmd',ExpandConstant('/c mon progs.exe mes params'), ' ', SW_SHOW, ewWaitUntilTerminated, ResultCde)

C'est clair que dans ce cas tu testes le code de retour de la commande 'cmd' et pas de ton programme (je pense).

Il faut faire attention au moment où tu appelles ton programme, es-tu sûre qu'il est déjà copié au bon endroit ? J'ai eu ce pb, et j'ai dû faire l'exécution de mon prog dans l'étape ssPostInstall, pas avant.

[pyrofrag]

salut,

Code :

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

Exec('cmd',ExpandConstant('/c mon progs.exe mes params'), ' ', SW_SHOW, ewWaitUntilTerminated, ResultCde)

Après plusieurs modifs j'ai enfin réussi à récupéer le code d'érreur par la commande que tu as décrite ci dessus. J'ai une différentes erreurs (notament le fait que inno setup exécute 2 fois le code donc la 1ere fois mes fichiers ne sont pas copiés alors que j'apelle la fonction après... j'ai pas trop saisi mais bon ça passe j'ai hiddé ma fenetre..

Mon problème maintenant c'est pour exécuter mon fichier.exe qd l'utilisateur à choisi un dossier avec des espaces dedans genre program files bah ExpandConstant retourne :
C:\Program
Files\folder...

et impossible de le joindre sur une seule ligne malgré addition de quotes et autre caractères..

Je chercherai demain j'avais laissé de coté le pb j'étais content ce soir d'avoir réussi ce foutu Exec mais là cette histoire de ligne découpé en 2 ça me gonfle grave