execution

Question

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

cs_Nono40 · Answer

C'est la même fonction :
  ShellExecute(Handle,'OPEN','C:\TEMP\MONFICHIERWORD.DOC',Nil,Nil,SW_SHOW);

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

cs_tade · Answer

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.

cs_Nono40 · Answer

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;
...

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

Execution

3 réponses

Votre réponse

Discussions similaires