Adobe Acrobat - Speicherort der geöffneten Datei ermitteln

[Johnny R]

Habt Ihr eine Idee, wie man unter AHK den vollständigen Speicherort einer in Adobe Acrobat (9 Pro) im Fokus befindlichen aktuell geöffneten Datei ermitteln kann? Googeln hat mir bei diesem Problem leider überhaupt nicht geholfen...

Geht das vielleicht ähnlich elegant wie hier mit Word?

EDIT:
Ich habs mit Adobe SDK etc. zusammengestöpselt:

Code: Select all

gApp    := ComObjCreate("AcroExch.App") 
gAvDoc  := gApp.GetActiveDoc
gPdDoc  := gAvDoc.GetPDDoc
JSO     := gPdDoc.GetJSObject
AktFile := JSO.Path
; Ergebnis: /A/AGG/Urteile/Ausgewählte Entscheidungen 2012.pdf
StringReplace, AktFile, AktFile,/,\, All ; Ersetzt Schrägstriche durch Backslashs.
StringLeft, Prüf, AktFile, 1
IF (Prüf="\") ; Entfernt den ersten Backslash
   AktFile := SubStr(AktFile, 2) ; String ab der 2. Stelle
StringLeft, Laufwerk, AktFile, 1 ; Ermittelt das Laufwerk
AktFile := Laufwerk . ":\" . SubStr(AktFile, 3) ; Setzt Laufwerk und weiteren Pfad zusammen.