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
29
30
31
32
33
34
35
36
37
|
procedure TFormCreatEtoiles.Button1Click(Sender: TObject);
var VarPDF,LoadApp : OLEvariant;
begin
// Ouvrir PDF
Try
LoadApp := CreateOleObject('C:\Program Files\Adobe\Acrobat DC\Acrobat.exe');
Except
On E : exception do
Begin
ShowMessage('Impossible de démarrer Acrobat'+CR+'Erreur : '+e.Message);
Exit;
end;
End;
Try
VarPDF.Initialize;
VarPDF.Open(RepRes + 'C:\Notice_Création_ Catalogue_étoiles.pdf');
Except
On E : exception do
Begin
ShowMessage('Impossible ouvrir document'+CR+'Erreur : '+e.Message);
Exit;
end;
end;
Try
VarPDF.application.Visible := True;
Except
On E : exception do
Begin
ShowMessage('Impossible afficher le fichier PDF'+CR+'Erreur : '+e.Message);
Exit;
End;
end;
end; |
