Domino 9 und frühere Versionen > Entwicklung

<pdf> mit Shell32 öffnen?

(1/3) > >>

Sturmvogel:
Hallo.
Ich hab zwar schon einiges hier zu PDF Dokumenten gelesen, aber trotzdem eine Frage, die ich für meine Entwicklung bräuchte:
ist es möglich, wenn ich einen Pfad habe, das pdf-Dokument via Shell32 Aufruf zu öffnen? Ich hörte, ich müsste eine lsx einbinden, weiss aber nicht so recht welche.

Danke für eure Hilfe!

Driri:
Es gibt meine ich eine API-Funktion, die dir für eine Datei die zugehörige Anwendung ermittelt.

Würde dir das weiterhelfen ? Dann schau ich mal, ob ich die Funktion finde.

Driri:
Hab sie auf Anhieb gefunden, habs aber noch nie genutzt, also ohne Gewähr  ;)


--- Zitat ---Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal sResult As String) As Long

Const MAX_PATH As Long = 260
Const ERROR_FILE_NO_ASSOCIATION As Long = 31
Const ERROR_FILE_NOT_FOUND As Long = 2
Const ERROR_PATH_NOT_FOUND As Long = 3
Const ERROR_FILE_SUCCESS As Long = 32 'my constant
Const ERROR_BAD_FORMAT As Long = 11

Sub Click(Source as Button)

Dim success As Long
Dim pos As Long
Dim sResult As String
Dim msg As String

sResult = Space$(MAX_PATH)

'lpFile: name of the file of interest
'lpDirectory: location of lpFile
'sResult: path and name of executable associated with lpFile
success = FindExecutable("winhlp32.hlp", "c:\winnt\system32\", sResult)

Select Case success
Case ERROR_FILE_NO_ASSOCIATION: msg = "no association"
Case ERROR_FILE_NOT_FOUND: msg = "file not found"
Case ERROR_PATH_NOT_FOUND: msg = "path not found"
Case ERROR_BAD_FORMAT: msg = "bad format"

Case Is >= ERROR_FILE_SUCCESS:

pos = InStr(sResult, Chr$(0))

If pos Then
msg = Left$(sResult, pos - 1)
End If

End Select

MsgBox msg

End Sub

--- Ende Zitat ---

Gandhi:
Soviel ich weiß würde es reichen die Datei (mittels Win-API) zu starten und Windows entscheiden zu lassen, welches Programm für den Dateityp das Richtige ist...?

Sturmvogel:
und wo und wie kann ich den Code einfügen um ihn zu testen? :)
den Click-Event für einen Button hab ich gesehen, klar, und die Konstanten? wohin damit?
ne frage zu den Konstanten: Konstanten gleichzeitig deklariere und einen Wert zuweisen?
Warum mag mein 5er Designer das nicht?

Navigation

[0] Themen-Index

[#] Nächste Seite