shellexecute et opendialogRésolu

Question

Bonjour,


Je souhaiterais un petit renseignement:


 un bouton"ouvrir" affiche un "opendialog" puis un shellexecute
ouvre word en mode nouvelle page. je voudrais integrer ,dans le code de
shellexecute,  une ligne qui me permette d'ouvrir  un fichier
word en le choisissant dans l'opendialog.

J'ai cherch&#233; dans le forum mais n'ai pas trouv&#233; de r&#233;ponse &#224; cette question sp&#233;cifique.


Merci pour votre aide,


A+.

bv94 · Accepted Answer

exatc, j'avais oubli&#233; que shellexecute demande des parametres de type pointeur de chaine de caract&#232;res...

shellexecute(0,nil,pchar('winword.exe'),pchar(opendialog1.filename),nil,sw_normal);

Voila qui est mieux...

BV94

cs_orques · Answer

voici le code attach&#233; au bouton "ouvrir":



procedure TForm1.Button1Click(Sender: TObject);

begin

   opendialog1.InitialDir:='C:\program files\microsoft office';

   opendialog1.Execute;

     opendialog1.Files.LoadFromFile(opendialog1.FileName);

shellexecute(0,nil,'C:\program files\microsoft office\office\winword.exe',nil,nil,sw_show);



end;



C'est &#224; la place du nil qu'il faudrait mettre autre chose mais quoi...

bv94 · Answer

Salut,

if opendialog1.execute then
  shellexecute(0,nil,'winword.exe',opendialog1.filename,nil,sw_normal);

Tout simplement...

BOn courage.

BV94

bv94 · Answer

D&#233;sol&#233; pour la mise en page...
En propre ca donne :

if opendialog1.execute then 
   shellexecute(0,nil,'winword.exe',opendialog1.filename,nil,sw_normal);

Tout simplement...

BOn courage.

BV94

cs_orques · Answer

d&#233;sol&#233;, mais voil&#224; l'erreur que j'ai:



[Erreur] Unit1.pas(50): Types incompatibles : 'TStrings' et 'PAnsiChar'



!!

cs_orques · Answer

Merci beaucoup!

Shellexecute et opendialog

6 réponses

Votre réponse

Discussions similaires