Guckst Du hier:
www.delphipraxis.net/1245493-post8.html
Es gibt mehrere Möglichkeiten, ein PDF zu öffnen:
Mit der Übergabe des Parameters
open wird die Anwendung gestartet,
die unter shell/open/command bzw. shell/read/command steht.
Beispiel:
Quelltext
1: 2:
| [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.pdf\UserChoice] "ProgId"="FoxitReader.Document" |
Mit
nil wird die
Standardanwendung gestartet.
msdn.microsoft.com/d...ibrary/aa559675.aspx
Diese können identisch sein.
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: 38: 39: 40: 41:
| procedure TForm1.Button3Click(Sender: TObject); var fn : String; begin fn:=ExtractFilePath(ParamStr(0)) +'test-1.pdf'; ShellExecute(0,nil,PChar(fn),NIL,NIL,SW_SHOWNORMAL); end;
procedure TForm1.Button4Click(Sender: TObject); var fn : String; begin fn:=ExtractFilePath(ParamStr(0)) +'test-1.pdf'; ShellExecute(0,PChar('OPEN'),PChar(fn),NIL,NIL,SW_SHOWNORMAL); end;
procedure TForm1.Button5Click(Sender: TObject); var fn : String; begin fn:=ExtractFilePath(ParamStr(0)) +'test-1.pdf'; webbrowser1.Navigate(fn); end;
procedure TForm1.Button6Click(Sender: TObject); var fn : String; begin fn:=ExtractFilePath(ParamStr(0)) +'test-1.pdf'; ShellExecute(0,PChar('Foxit Reader.exe'),PChar(fn),NIL,NIL,SW_SHOWNORMAL); end; procedure TForm1.Button7Click(Sender: TObject); var fn : String; begin fn:=ExtractFilePath(ParamStr(0)) +'test-1.pdf'; ShellExecute(0, 'open','acrord32', PChar(fn),NIL,SW_SHOWNORMAL); end;
procedure TForm1.Button9Click(Sender: TObject); var fn : String; begin fn:=ExtractFilePath(ParamStr(0)) +'test-1.pdf'; ShellExecute(0, 'open','acrord32', PChar('/p /h ' + fn), nil, SW_HIDE); end; |
PARAMETER
Open a PDF file: AcroRd32.exe PdfFile
Open a PDF file in a new instance of Adobe Reader: AcroRd32.exe /N PdfFile
Open a PDF file at page 7: AcroRd32.exe /A "page=7=OpenActions" PdfFile
Open a PDF file with navigation pane active, zoom out to 50%, and search for and highlight the word "batch":
AcroRd32.exe /A "zoom=50&navpanes=1=OpenActions&search=batch" PdfFile
Print a PDF file with dialog: AcroRd32.exe /P PdfFile
Print a PDF file silently: AcroRd32.exe /N /T PdfFile PrinterName [ PrinterDriver [ PrinterPort ] ]
Moderiert von Th69: Code-Tags hinzugefügt
Moderiert von Th69: URL-Tag korrigiert