Datei (PDF) mit einem bestimmten Programm öffnen

[Jumpy]

Hallo zusammen,

ich möchte von einem Programm heraus eine PDF-Datei öffnen. Standardmässig öffnen sie sich im Adobe Reader, dass soll auch so sein. Dieses Programm soll aber nun die PDF-Datein mit einem anderen Programm öffnen (mit dem man PDFs bearbeiten kann). Wie mach ich sowas?
ShellExecute mit dem Dateinamen würde ja das Standardprogramm öffnen?

Ach ja: Das ist Ausnahmsweise auch keine Delphi-Frage, da ich das in eine bestehende Access-DB einbauen soll, also VBA.

[cookie22]

ShellExecute kann die Datei mit jedem beliebeigen Programm öffnen, schau dir das mal genauer an.

[DeddyH]

Ähnliches Problem: http://www.delphipraxis.net/164415-s...d-oeffnen.html

[Jumpy]

Ich hätte mit ShellExecute bei MSDN mal genauer ansehen sollen. Das mit dem Parameter hab ich doch glatt nicht gesehen. Setzt aber natürlich vorraus, dass die zu startende Anwendung Parameter akzeptiert, doch ist das ja meist der Fall, so zum Glück auch in meinem. Hier mal mein Ergebnis:

Code:

Public Sub OpenPDFinArchitect(Filepath As String, Filename As String)
  Dim FullName As String
  Const ProgName As String = "C:\Program Files (x86)\PDF Architect\PDF Architect.exe"
  
  FullName = Filepath
  If Right(FullName, 1) <> "\" Then FullName = FullName & "\"
  FullName = FullName & Filename
  If LCase(Right(FullName, 4)) <> ".pdf" Then FullName = FullName & ".pdf"
  
  ShellExecute 0, "Open", ProgName, Chr(34) & FullName & Chr(34), "", 1
End Sub