Discussion :

[Abou Zar]

Bonjour,
Je voudrais pouvoir ouvrir des fichiers word, pdf ou excel par double clic sur une ligne du DBGrid.
Le DBGrid contient les informations qui referencent les fichiers physiques.
Par double clic sur une ligne du DBGrid on doit pouvoir ouvrir le fichier dont le chemin est connu.

Merci bien de m'aider!

[Fxg]

Bonsoir

Une petite recherche et tu trouveras je pense ton bonheur Ici

[SergioMaster]

Plus 'simple' que OLE, l'utilisation de l'application associée

voici une fonction , trouvée dans le forum mais je ne sais plus où, c'est pour cela que je la remet (toutes mes excuses à l'auteur)


Ne pas oublier shlobj dans la liste des unités

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
function OpenFile(const Filename: string): boolean;
{ Tente d'ouvrir le fichier dont le nom est passé en argument avec
  l'application associée à son extension. Si aucune application n'est
  associée à celle-ci, le dialogue "Ouvrir avec..." est appelé. }
 var
  errCode: Cardinal;
  filePath: string;
 begin
  { On stocke le chemin pour éviter de le décoder 2 fois }
  filePath:= ExtractFilePath(Filename);
 
  { Tentative d'ouverture de l'application associée }
  errCode:= ShellExecute(0, 'Open', PChar(Filename), '',
    PChar(filePath), SW_SHOWNORMAL);
 
  { Si la tentative a échoué avec le code SE_ERR_NOASSOC, c'est que l'extension
    n'est associée à aucune application }
  if errCode = SE_ERR_NOASSOC then
    { Dans ce cas, on appelle le dialogue }
    errCode:= ShellExecute(0, 'open', 'rundll32.exe',
      PChar('shell32.dll,OpenAs_RunDLL ' + Filename),
      PChar(filePath), SW_SHOWNORMAL);
 
  { Si le code retourné par ShellExecute est supérieur à 32, alors l'opération
    a réussi, sinon c'est un code d'erreur }
  result:= errCode > 32;
end;

Code utilisation :

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

1
2
 
 OpenFile(chemin+nom du fichier)

[Lung]

Ne pas oublier shlobj dans la liste des unités

C'est pas plutôt ShellAPI ?

[Abou Zar]

merci à vous pour vos reponses.

[SergioMaster]

C'est pas plutôt ShellAPI ?

oui , boulette , j'étais perdu dans un autre truc

[Abou Zar]

Bonjour,
J'ai utilisé la fonction envoyé par SergioMaster.
j'ai mis la fonction dans l'unité de ma DataModule et je l'ai appelé ailleurs pour la tester.
code:

Code :

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

1
2
3
4
5
6
7
procedure TF_courrier_arrive.Button1Click(Sender: TObject);
var filePaths, files : string;
begin
  filePaths := 'D:\';
  files := 'Rapport';
OpenFile(filepaths+files);
end;

A la compilation il me dit ceci: types incompatibles "String" et "PAinsichar"

Merci bien de m'aider!