1. Dans la section "USES", ajoute "ShellAPI".
2. Puis crée une ComboBox sur ta forme (appelée "ComboBox1").
3. Dans l'inspecteur d'objets, sélectionne "ComboBox1".
Puis clique sur l'onglet "Propriétés".
Sélectionne "Items". Puis clique sur les "...".
Dans la fenêtre de dialogue, tape le nom des applications que tu souhaites. Par exemple :
Word
Excel
Word + Excel
avec des retours ) la ligne.
Clique sur OK pour confirmer.
4. Dans l'inspecteur d'objets, sélectionne "ComboBox1".
Puis clique sur l'onglet "Evénements".
Double-clique sur "OnChange" : la fenêtre du code apparaît.
(Ceci surveille si un changement a été effectué sur la ComboBox).
5. Intègre alors le code suivant entre le BEGIN et le END de la procedure "TForm1.ComboBox1Change(Sender : TObject);" :
CASE (ComboBox1.ItemIndex) OF
0 : BEGIN
{ Exécution de Word }
ShellExecute(Handle ,'open', PChar('C:\Program Files\Microsoft Office\Office\Winword.exe'), NIL, NIL, SW_SHOW);
END;
1 : BEGIN
{ Exécution d'Excel }
ShellExecute(Handle ,'open', PChar('C:\Program Files\Microsoft Office\Office\Excel.exe'), NIL, NIL, SW_SHOW);
END;
2 : BEGIN
{ Exécution de Word et Excel }
ShellExecute(Handle ,'open', PChar('C:\Program Files\Microsoft Office\Office\Winword.exe'), NIL, NIL, SW_SHOW);
ShellExecute(Handle ,'open', PChar('C:\Program Files\Microsoft Office\Office\Excel.exe'), NIL, NIL, SW_SHOW);
END;
END;
N.B. : Le rang de la ComboBox démarre à 0.
Si tu sélectionnes "Word", "ComboBox1.ItemIndex" vaut 0,
Si tu sélectionnes "Excel","ComboBox1.ItemIndex" vaut 1,
Si tu sélectionnes "Word + Excel", "ComboBox1.ItemIndex" vaut 2,
et ainsi de suite...
Il te suffit de remplacer dans "ShellExecute", le chemin et le nom de l'appli que tu souhaites exécuter.
En espérant avoir répondu à ta question.
Bon courage.
|