J'ai oublié de préciser qu'il faut ajouter Uses ShellApi; après le mot implementation :
...
implementation
Uses ShellApi;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,'OPEN','C:\Documents\file.doc',Nil,Nil,SW_SHOW);
end;
...
---
Nono40@fr.st
---
Nouveau --->
Nono40.fr.st-------------------------------
Réponse au message :
-------------------------------
> Tu m'excuses mais je n'arrive pas à l'exécuté. il me dit ke la fonction est inconnu. Que dois je mettre dans Handle? C'est mon premier prg en delphi.
>
> Je veux en cliquant sur un bouton lancer c:\documets\file.doc
>
> je t'envois le fichier complet du fichier:
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> procedure Button1Click(Sender: TObject);
> private
> { Déclarations privées }
> public
> { Déclarations publiques }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> ShellExecute(GetDesktopWindow,'OPEN','C:\TEMP\MONFICHIERWORD.DOC',Nil,Nil,SW_SHOW);
>
> end;
>
> end.
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > C'est la même fonction :
> > ShellExecute(Handle,'OPEN','C:\TEMP\MONFICHIERWORD.DOC',Nil,Nil,SW_SHOW);
> >
> >
> > ---
Nono40@fr.st
---
> > Nouveau --->
Nono40.fr.st> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour,
> > > je suis tout nouveau et tout perdu
> > >
> > > Je voudrai savoir comment lancer un fichier (word par exemple) à partir d'une fonction
> > >
> > > J'ai trouvé sur le site comment lancer un exécutable mais il ne marche pas quand je lui donne le chemin pour lancer un fichier word.
> > >
> > > Merci d'avance
> >
>