Delphi, ListBoxRésolu

Question

Bonjour,

C'est mon 1er post sur CodeS-sourceS, donc désolé si c'est pas ici qui faut poster!!
Je cherche comment programmer les lignes de ma listbox1, de manière à lancer une application en double cliquant sur une ligne, j'ai trouvé listbox1.ItemIndex mais je sais pas si c'est ca!

merci pour vos réponses prochaines!

BernieNoel68 · Accepted Answer

D'après ce que j'ai compris, ta ListBox ne contient pas des noms d'executable. Dans un premier temps, il faut stocker tous les executables dans l'ordre.

Tu peux par exemple utiliser un TStringList pour stocker le chemin de tes executable:

---------------------------------------------------------
var exeList : TStringList ;

exeList := TStringList.Create ;
exeList.Add('C:\MonDossier\machin1.exe');
exeList.Add('C:\MonDossier\machin2.exe');
exeList.Add('C:\MonDossier\machin3.exe');
[...]

if ((listbox1.itemindex >=0 ) and (listbox1.itemindex < exeList.count ) then
  ShellExecute(handle, 'open', PChar( exeList.Strings[ listbox1.itemindex ]), nil, nil, SW_SHOW);

//ne pas oublier de libere la TStringList
exeList.Destroy;
---------------------------------------------------------

En esperant que j'ai bien compris la question, et que je n'ai pas repondu a coté!

Guillemouze · Answer

Deja, bienvenue sur le forum.

ta question est pas tres precise, mais si ce que tu veux c'est executer le fichier ecrit dans ta listbox, tu peux faire, sur le OnDblClick de ta listbox
ShellExecute(handle, 'open', PChar(listbox1.items[listbox1.itemindex]), nil, nil, SW_SHOW);
en verifiant que itemindex ne vaut pas -1

PS: shellexecute se trouve dans l'unite ShellAPI.

cs_d4M13N · Answer

Merci pour ta réponse 

Je sais pas trop comment expliquer.

Je ne veux pas executer le fichier ecrit mais juste attribuer à chaque ligne de ma listbox une action telle que pour la ligne 1 par exemple ca lance avec shellexecute un fichier exe.
Si je double clique sur la ligne 1 ca lance machin1.exe
Si je double clique sur la ligne 2 ca lance machin2.exe
                                        ......
Voila j'espère avoir été claire.!

BernieNoel68 · Answer

A noter que plutot que d'affecter tous tes exe 1 par 1 dans la code, tu peux les charger depuis un fichier:

exeList.LoadFromFile('C:\chemin\MaListeExe.txt') ;

(ton fichier texte contient sur chaque ligne un executable)

cs_d4M13N · Answer

Merci BernieNoel68 ca marche super!!
 il y avait une parathèse qui manqué dans ton code sinon ca marche bien!!

cs_d4M13N · Answer

C'est encore moi !
Si je veux lancer mes applications avec des options de lancement je fait comment?
exeList.Add('C:\MonDossier\machin1.exe -machin truc');
Comme ca ca marche pas.

BernieNoel68 · Answer

Si tu regarde l'aide de ShellExecute tu verra que le 4ème paramètre de la fonction sert justement à çelà

Bonne Prog' !

cs_d4M13N · Answer

Ok merci, enfet j'ai creer carement des launchers de l'exe de base

Delphi, ListBox

8 réponses

Votre réponse

Discussions similaires