Discussion :

[lili2008]

Bonjour,

J'ai un problème avec ShellExecute. Je souhaiterais ouvrir un document pdf au clic d'un bouton, mais il ne se passe rien.

Code :

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

1
2
3
4
5
procedure TForm1.SamoronClick(Sender: TObject);
begin
ShellExecute(0,'open','C:\Desktop\Cd interactif\synthèse\amoron.pdf',nil,nil,SW_SHOWMAXIMIZED);
 
end;

Il y a t-il un problème dans mon code?

[ero-sennin]

Salut et Bienvenue sur Developpez.com ,

Il y a une légère erreur dans ton code ... Il faut transtyper en Pchar le chemin ... ce qui donne :

Code :

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

1
2
3
4
5
procedure TForm1.SamoronClick(Sender: TObject);
begin
ShellExecute(0,'open',Pchar('C:\Desktop\Cd interactif\synthèse\amoron.pdf'),nil,nil,SW_SHOWMAXIMIZED);
 
end;

A+

[lili2008]

J'ai essayé ta méthode, mais ça ne marche pas. Je précise que j'utilise Delphi 2007 avec Vista, est-ce que le problème viendrait de là? Parce avec XP je n'avais pas de problème.

[ero-sennin]

J'ai essayé ta méthode, mais ça ne marche pas. Je précise que j'utilise Delphi 2007 avec Vista, est-ce que le problème viendrait de là? Parce avec XP je n'avais pas de problème.

Ah, ce vista!Il faut mettre nil à la place de open ... Pour plus d'infos, heu ... ba j'en sais pas plus

A+

[lili2008]

Merci beaucoup Ero! ça a marché!
Allez je retourne à la programmation!