Discussion :

[Ayouten]

Bonjour,

Désolé d'avance pour la compréhension de ce qui est écris, j'ai essayé de faire au mieux ...

Dans mon ancien Installeur de logiciel, fait avec InstallJammer, a un certain moment nous créons un fichier log, et dans ce fichier log, nous affichons des virtuals texts

vous allez surement mieux comprendre avec les photos

La première image montre la création du fichier log via du tcl, je pense que l'on peut crée un fichier log dans InnoSetup via "SetupLooging"


Avant de pouvoir écrire dans le fichier log, il donne un nom Virtuel à une commande spécifié. Pour cette exemple, il donne le Nom : "StopServiceG" à la commande qui stop les Services du FirebirdGuardian : Voici la photo pour mieux comprendre :



Ensuite,une fois la création du fichier log réaliser, il ouvre le fichier log pour écrire dedans, il utilise les Noms virtuels donnés précédemments . J'ai trouvé "SaveStringtoFile" pour pouvoir écrire dedans, mais la encore, je suis sur de rien :/


Voila le résultat final de ce qui est écris dans le fichier de Log (Il y a plusieurs commandes regroupées) :



Et voila le résultat final une fois que l'installation est terminer, cela créé un fichier .txt contenant cela :



Je sais pas si cela est très clair ...
Mais, pensez-vous qu'il est possible de réaliser cela sur InnoSetup, et si oui de quel façon, sachant que je trouve peu d'exemples et de docs ?

Voici mon code pour Stop le Services FirebirdGuardian :

Code :

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

1
2
3
 
 if FileExists(ExpandConstant('{sys}\sc.exe')) Then        
 Shellexec('open',ExpandConstant('{sys}\sc.exe'),'stop FirebirdGuardianDefaultInstance','', SW_HIDE, ewWaitUntilTerminated, ErrorCode);

Merci d'avance
Cordialement
Ayouten

[Ayouten]

Bonjour,

J'ai bien avancée dans mon probème, j'ai compris comment obtenir le message final !
Il me suffisait d'exécuter la ligne de commande : "sc stop FirebirdGuardianDefaultInstance" pour obtenir le message, ainsi de suite pour les autres ...

Cependant, je ne sais toujours pas comment écriré cela dans un fichier log ou bien un txt, et pourtant j'ai cherché ...

Quelqu'un aurait-il une proposition ??
Cordialement
Ayouten

[SergioMaster]

Bonjour,
je sais que DOS c'est vieux mais à l'époque il existait des pipes et autres astuces étonnamment cela existe toujours
exemple : ipconfig /all > ipconfig.txtreste à trouver le moyen de faire un append à un fichier log existant

Il existe aussi CLIP ipconfig /all | CLIP pour obtenir le résultat dans le presse papier

[Ayouten]

je crois que je me suis mal exprimé

Enfaite j'ai remarquer que en faisant "sc stop FireBirdGuardianDefaultInstance" dans le CMD, cela m'affichait le message que je souhaite avoir dans mon fichier log ou .txt

Or, je ne sais pas comment écrire cela dans InnoSetup, sachant que j'ai déjà test ShellExec et que cela marchait pas (Je ne dois pas taper la commande a la main depuis mon CMD, cela doit être automatque, à chaque fois que j'installe mon logiciel)
Et cerise sur le gâteau ... je ne sais pas non plus comment l’écrire dans le fichier log ou .txt

Je sais pas si tu avais compris cela...
Désolé de mettre mal exprimé
Cordialement
Ayouten

[SergioMaster]

je crois que je me suis mal exprimé

Non
Je pensais qu'écrire SC stop FireBirdGuardianDefaultInstance>log.txt ou sc stop FireBirdGuardianDefaultInstance|clip (à partir de là il y a de nombreuses facilités code pour coller le presse papier dans un fichier) pourraient fonctionner (je n'ai pas essayé)

Code :

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

Shellexec('open',ExpandConstant('{sys}\sc.exe'),'stop FirebirdGuardianDefaultInstance > logfb.txt','', SW_HIDE, ewWaitUntilTerminated, ErrorCode);

donnerai quoi ? (bien sûr il faut donner un nom de fichier avec chemin mais dans le principe)

[Andnotor]

Ça pourrait être quelque chose comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
var
  Output :AnsiString;
 
begin
  ShellExec('open', 'sc.exe', ExpandConstant('stop FirebirdGuardianDefaultInstance > {tmp}\logfb.txt'),'', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
 
  if LoadStringFromFile(ExpandConstant('{tmp}\logfb.txt'), Output) then
    Log(Output);
end;