[R] Interface de logiciel d'installation

[razorbok]

Bonjour à tous,
Voila je suis entrain de faire un projet pour mon bts, le but de ce projet est de développer une installation automatisé de logiciel utilisé dans l'entreprise.
Pour le moment j'ai déja des packets d'installation et une interface graphique :

► Afficher le texte

#include <GUIConstantsEx.au3>

$idControlID = GUICtrlCreateButton("OK", 200, 270, 75, 25)

GUISetState(@SW_SHOW)

Interface()


Func Interface()
MsgBox(1,"Logiciel d'installation de logiciel", "Avant de commencer, merci de mappé le refimage en Z ")
Local $Compteur = 0
Local $MB_SYSTEMMODAL = 3
Local $hGUI = GUICreate("Projet", 300, 300,300,200) ;creer la fenetre
Local $idCheckbox1 = GUICtrlCreateCheckbox("Microsoft Visio",10,30,300,25)
Local $idCheckbox2 = GUICtrlCreateCheckbox("Microsoft Office Standard",10,60,300,25)
Local $idCheckbox3 = GUICtrlCreateCheckbox("Optima",10,90,75,25)
Local $idCheckbox4 = GUICtrlCreateCheckbox("Autodesk",10,120,75,25)
Local $idCheckbox5 = GUICtrlCreateCheckbox("Pdf-Xchange",10,150,100,25)
Local $idCheckbox6 = GUICtrlCreateCheckbox("Microsoft Project",10,180,200,25)
Local $idCheckbox7 = GUICtrlCreateCheckbox("Firefox",10,210,75,25)
Local $idCheckbox8 = GUICtrlCreateCheckbox("Microsoft Office Pro",10,240,300,25)
Local $idClose = GUICtrlCreateButton("Close", 220, 170, 75, 25)
Local $idControlID = GUICtrlCreateButton("OK", 220, 200, 75, 25)


GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $idClose
ExitLoop

EndSwitch
WEnd

GUIDelete($hGUI)
EndFunc

Func IsChecked($idControlID)
Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc

Mais maintenant je voudrais que dès que je clique sur un logiciel, il lance l'exécutable. Je suis bloquer à partir de là.
Merci de votre aide.

[ZDS]

Bonjour Razorbok,

Pour lancer un fichier, il suffit de faire

Code : Tout sélectionner

Run("C:\Blabla\...\Install.exe")

Tu peux aussi te renseigner sur les fonctions apparentées du style RunAs, RunWait, ShellExecute, etc... Mais le principe est là.

Ensuite, dans ton code pour lancer une action lors du clique sur le bouton OK, il faut juste le faire dans ta boucle While

► Afficher le texteVoici un exemple

Code : Tout sélectionner

While 1
   Switch GUIGetMsg()
      Case $GUI_EVENT_CLOSE, $idClose
         ExitLoop
      Case $idControlID ; Quand tu cliques sur OK
         If IsChecked($idCheckbox1) Then
            Run("CHEMIN DE Microsoft Visio")
         EndIf
         If IsChecked($idCheckbox2) Then
            Run("CHEMIN DE Microsoft Office Standard")
         EndIf
         If IsChecked($idCheckbox3) Then
            Run("CHEMIN DE Optima")
         EndIf
         If IsChecked($idCheckbox4) Then
            Run("CHEMIN DE Autodesk")
         EndIf
         ...
   EndSwitch
WEnd

Il y a moyen de faire plus "propre" avec des listes pour tes boutons, et ne pas avoir à tout retaper à chaque programme, mais il vaut mieux commencer avec les bases dans un code que tu as fait toi même ^^ Je te conseille aussi d'utiliser RunWait(...) au lieu de Run(...), car dans le cas actuel, si tu coches tout, la totalité des installeurs vont se lancer en même temps (et je pense qu'il vaut mieux les lancer les uns à la suite des autres).

A bientôt !

[razorbok]

Merci beaucoup