Discussion :

[fs999]

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

[Charly910]

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

[Cirec]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

@+

[fs999]

Merci beaucoup Cirec et Charly910 !

Frédéric