[Inno Setup] Utilisation des Services (sc.exe)

Bonjour,

Je vais réaliser un petit récapitulatif de mon projet :D. Etudiant dans le numérique, je suis actuellement en stage dans une entreprise, mon projet à pour but de reproduire un installeur de logiciel, passant de InstallJammer à InnoSetup.

Mon projet se déroule comme prévu,j'avance correctement, cependant je suis arriver a un point ou j'ai un certain soucis :calim2:

Je dois pouvoir stopper des services, activer des services, faire des pauses. En faisant différentes recherche, j'ai trouvé le moyen d’exécuter ces services, grâces a sc.exe. Cependant, je n'ai pas trouvé d'exemple clair pour pouvoir faire fonctionner cela ?:aie:

Voici un petit exemple:

Je dois pouvoir stopper le Service FireBird Guardian avec la condition "si le fichier sc.exe" existe
Or je vois bien quelle commande utiliser : sc stop FireBirdGuardianDefaultInstance . Mais, je ne sais pas comment l'exprimer dans InnoSetup( j'ai fait des essais mais rien de fonctionnelle", ni ou le placer ( même si je m'en doute un peu ).

Auriez-vous une solution ?:(


Bonne fin de journée a vous et merci pour votre aide.
Cordialement
Ayouten

Dans CurStepChanged.

Code:

---

1 2 3 4 5 6 7

procedure CurStepChanged(CurStep: TSetupStep); begin //Stop if CurStep = ssInstall then ShellExec(...)   //Start else if CurStep = ssPostInstall then ShellExec(...)

---

Le démarrage pourrait aussi être dans [Run].

Bonjour et merci pour cette réponse :D

En effet, comme tu l'as annoncé, nous pouvons réaliser cela dans le [Run] et c'est cela que je voudrais réaliser :?

Après différentes recherches, j'ai trouver la fonction FilesExist que j'instaure avec un Check dans le [Run], cela me permettrais de vérifier si le sc.exe existe bien .

Voici ce que j'ai réalisé dans le [Run] :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Filename: {sys}\sc.exe; Parameters: "sc stop FirebirdServerDefaultInstance"; Flags: runhidden; Check : FilesExist1;   [Code] function FilesExist1 (): Boolean; begin if(FilesExist1('C:\Windows\System32\sc.exe'))then begin Result := True; end; else begin MsgBox('sc.exe introuvable'), mbCriticalError, MB_OK); Result := False; end; end;

---

Or, cela m'affiche un message d'erreur qui est : "Invalid Number of parameters", je n'arrive point à trouver l'erreur :aie:
Est ce la meilleur solution pour faire ce que je souhaite faire sachant que après je dois supprimer un exe, puis faire un sleep ...? :?


Cordialement
Ayouten

Rien ne te choque ?

Code:

---

1 2 3

function FilesExist1 (): Boolean; begin if(FilesExist1('C:\Windows\System32\sc.exe'))then

---

Mais ce code est inutile, il te suffit d'ajouter le bon flag à la commande (attention aux paramètres aussi) :

Code:

---

Filename: {sys}\sc.exe; Parameters: "stop FirebirdServerDefaultInstance"; Flags: runhidden skipifdoesntexist

---

Citation:

---

Envoyé par Ayouten

Est ce la meilleur solution pour faire ce que je souhaite faire sachant que après je dois supprimer un exe, puis faire un sleep ...?

---

Pas sûr, il faudrait expliquer clairement ce qui doit être fait depuis l'arrêt du service.

Citation:

---

Pas sûr, il faudrait expliquer clairement ce qui doit être fait depuis l'arrêt du service.

---

Lorsque je réalise l’arrêt du service, j'ai plusieurs étapes qui suivent :

1ère étape : Une fois le service stopper, je dois désinstaller Unins000.exe par précaution (Firebird), mais à la condition que celui existe
2ème étape : Je dois réaliser une pause de 500ms (sleep)
3ème étape : je dois supprimer le fichier BDD s'il existe, cette étape dois pouvoir agir sur ma barre de progression .
4ème étape : je dois activer des Groupes ( les groupes correspondent a mes dossier contenant tous ce que je dois installer sur le pc de l'utilisateur) une fois que les services sont arrêtes.
...

Il y a encore beaucoup d'étapes, déja si j'arrive a faire cela se serait une bonne chose:weird:


Désolé si vous n'arrivez pas forcément a visualiser les étapes :(

Cordialement
Ayouten

Tu ne peux donc clairement pas tous faire dans [Run]. Cette section est traitée en dernier, les fichiers ont déjà été extraits. L'étape 4 surviendra avant la 1 !

Il faudrait une section [BeforeInstallRun] mais elle n'existe pas. A la place, il faut coder CurStepChanged comme montré précédemment.

Tout d'abord, Merci pour tes différentes réponses qui me guide pour la réalisation de ce projet.
J'ai donc coder CurStepChanged comme tu me l'avais dis.

Cependant, je n'arrive pas a stopper les services.Il y a très peu d'exemples sur internet pour pouvoir stopper les services depuis [Code].:aie:

Voici mon code pour le moment :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Procedure CurStepChanged(CurStep : TSetupStep); var ErrorCode : Integer; begin   begin if CurStep = ssInstall then ShellExec( ' ',ExpandConstant('{pf32}\sc.exe'), ' ',' ',SW_SHOWNORMAL,ewWaitUntilTerminated, ErrorCode); ExpandConstant('sc stop FirebirdServerDefaultInstance') and ExpandConstant('sc stop FirebirdGuardianDefaultInstance'); end; end;

---

Ce sont 2 services que je dois stopper à la suites qui ont la même conditions, j'ai donc essayer de les rassembler :)

Comment dois-je écrire pour pouvoir faire fonctionner les stops ?
Merci de ton aide;)

Cordialement
Ayouten

Est-il nécessaire d'arrêter Firebird avant de lancer sa désinstallation ? A voir !

Code:

---

1 2	ShellExec('open', ExpandConstant('{pf32}\sc.exe'), 'stop FirebirdServerDefaultInstance', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode); ShellExec('open', ExpandConstant('{pf32}\sc.exe'), 'stop FirebirdGuardianDefaultInstance', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);

---

Je t'avoue que je me pose aussi la question :roll: on verra bien par la suite :D
Merci pour ton aide cela fonctionne :)

Cordialement
Ayouten

Bonjour,

Un nouveau problème est apparu, je veux toujours stopper les services, or lorsque que je compiles tous,une page apparait juste avant la barre de progression,

Voici la page en question :

Pièce jointe 484499


Or, je ne comprend pas pourquoi cela apparait car normalement, lors du commencement de l'installe, je stop les services via cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Procedure CurStepChanged(CurStep : TSetupStep); var ErrorCode,Wait : Integer; logfilepathname, logfilename, newfilepathname: string;   begin   if CurStep = ssInstall then begin ShellExec('open',ExpandConstant('{pf32}\sc.exe'),'stop FirebirdServerDefaultInstance','', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode); Shellexec('open',ExpandConstant('{pf32}\sc.exe'),'stop FirebirdGuardianDefaultInstance','', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);   end,

---

Comment régler cela ?


Cordialement
Ayuten

Citation:

---

Envoyé par Andnotor

Est-il nécessaire d'arrêter Firebird avant de lancer sa désinstallation ? A voir !

---

À mon avis, mais à tester car ce n'est pas le genre de chose que je ferais sur mon poste, je passerai directement par une désinstallation silencieuse

Code:

---

<repertoire firebird>\unins000.exe /SILENT /NORESTART /SUPPRESSMSGBOXES

---

mais il faut s'assurer que toutes les bases sont fermées et il vaut mieux préserver certaines informations https://firebirdsql.org/rlsnotesh/in...installer.html

Enfaite, je dois supprimer le unins000.exe si il se trouve dans le repertoire firebird, or celui-ci ne se trouve pas dans se répertoire mais dans un autres, donc pas besoin de le supprimer :)

Donc si je le supprime pas, mon installe continue et j'ai besoin de stopper les services pour réaliser des tâches :)

Merci pour votre aide, la page d'erreur a disparue le modifiant :)

Cependant, vue que j'utilise des lignes de commandes, juste avant de commencer l'installe sur la page de progression, le CMD s'ouvre et se referme plusieurs fois, je me doute que celui-ci exécute ma demande.

Mais est t'il possible de bloquer l'affichage de c'est pages ?

Cordialement
Ayouten

Citation:

---

Envoyé par Ayouten

Enfaite, je dois supprimer le unins000.exe si il se trouve dans le repertoire firebird

---

Es-tu conscient que si tu supprimes ce fichier, Firebird ne pourra plus être désinstallé proprement ?

Citation:

---

Envoyé par Ayouten

Or, je ne comprend pas pourquoi cela apparait car normalement, lors du commencement de l'installe, je stop les services via cela :

---

SI tu ciblais le bon répertoire (et dans le cas présent ne spécifiait même pas de répertoire du tout), ça irait sans doute mieux !

Citation:

---

Envoyé par Andnotor

Es-tu conscient que si tu supprimes ce fichier, Firebird ne pourra plus être désinstallé proprement ?

---

Oui je suis conscient, je le supprime au début pour le réinstaller par la suite ...

Citation:

---

Envoyé par Andnotor

SI tu ciblais le bon répertoire (et dans le cas présent ne spécifiait même pas de répertoire du tout), ça irait sans doute mieux !

---

en effet je sais pas ce que j'ai magouillé mais ne t'en fais pas, j'ai corrigé cela :P

J'ai toujours un petit soucis, l'utilisation de sc.exe, provoque lors de l'installe une ouverture et une fermeture très rapide d'une page CMD, est-il possible de bloquer l'affichage de ces pages ?

Cordialement
Ayouten

Citation:

---

Etudiant dans le numérique, je suis actuellement en stage dans une entreprise,

---

Attention aux fautes d'orthographe et de grammaire quand vous rendrez votre travail, en lisant vos différents posts ça pique un peu mes yeux (mais pas au point de corriger :mouarf:)

Citation:

---

Envoyé par Ayouten

J'ai toujours un petit soucis, l'utilisation de sc.exe, provoque lors de l'installe une ouverture et une fermeture très rapide d'une page CMD, est-il possible de bloquer l'affichage de ces pages ?

---

Salut, je ne comprends pas ce que tu entends par "bloquer" ? Tu aimerais que la fenêtre dos reste au premier plan en attendant une confirmation ? Ou au contraire, tu aimerais qu'elle n'apparaisse pas ?

Citation:

---

Envoyé par Ayouten

J'ai toujours un petit soucis, l'utilisation de sc.exe, provoque lors de l'installe une ouverture et une fermeture très rapide d'une page CMD, est-il possible de bloquer l'affichage de ces pages ?

---

Ben c'est toi qui demande à l'afficher par SW_SHOWNORMAL. Si tu ne veux pas la voir : SW_HIDE.