Ouvrir la fenêtre Choisir le programme par défaut

Bonjour,

Existe-t-il un moyen d'ouvrir la fenêtre "Choisir le programme par défaut..." (dans le menu contextuel "Ouvrir avec..." de l'explorateur) en donnant l'extension du document à ouvrir ?

Je voudrait p.ex. ouvrir un document docx mais laisser le choix du programme à exécuter (Word ou Libre Office Writer, etc).

Cordialement
Frédéric

Bonjour,

pour cette fenêtre, je ne sais pas, mais tu peux consulter la FAQ pour connaitre l'application associée à un type de fichier et aussi pour lister les applications installées sur le poste. Avec cela tu dois pouvoir le faire "à la main" !!

FAQ

A+
Charly

Bonjour,

pour afficher cette fenêtre c'est assez simple:

Code:

---

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

uses ShallAPI;   procedure ShowOpenWithDlg(const aFileName: string); begin ShellExecute(0, 'Open', 'Rundll32.exe', PChar('Shell32.dll, OpenAs_RunDLL ' + aFileName), nil, SW_SHOWNORMAL); end;     procedure TMainForm.btn_OpenWithClick(Sender: TObject); begin if Opendialog1.Execute then ShowOpenWithDlg(Opendialog1.FileName); end;

---

Cordialement,

@+

Merci beaucoup Cirec et Charly910 !

Frédéric