Ouvrir l'application associée à un fichier



Utilisez la fonction ShellExecute(), contenue dans l'unité ShellAPI, comme dans l'exemple suivant:

Ouvrir l'application associée à un fichier

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;

function LaunchByExtension(FileName: string): integer;
var
  DocFileName : string;
  DocFileDir : string;
begin
  DocFileName := FileName;
  DocFileDir := ExtractFileDir(DocFileName);
  Result := ShellExecute(Form1.Handle,
    nil,
    PChar(DocFileName),
    nil,
    pChar(DocFileDir),
    SW_SHOWNORMAL);
end;

begin
  LaunchByExtension('monfichier.txt');
end.




3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.007 Secs