Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Acrobat
Autor: Oggi
Datum: 30.03.03 14:10
Howdy Greg, Prinzipell kannst du zuerst nach der Anwendung suchen, die mit der Extension pdf verknüpft ist, dann wird die Anwendung zusammen mit dem PDF-File mittels der Shell-Funktion geöffnet. MfG Oggi _____________________________________________________________ Assoziierte Anwendung zu einem Dateityp finden Deklaration: 'Hier die benötigten API-Deklarationen Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long Funktion: Public Function EXE4FILE(ByVal sDatei As String) As String 'Diese Funktion ermittelt die Standard-Anwendung 'in Verbindung mit einem bestimmten Dateityp ' 'Die Funktion gibt als Ergebnis den Dateinamen mit 'vollständigen Pfad zurück ' 'Kann keine assoziierte Anwendung ermittelt werden 'wird ein Leerstring zurückgegeben 'Datei: Pfad+Dateinamen einer existierenden Datei Dim sPfad As String sPfad = Space(256) FindExecutable sDatei, vbNullString, sPfad If sPfad <> "" Then sPfad = Left(sPfad, InStr(sPfad, vbNullChar) - 1) End If If UCase(sPfad) = UCase(sDatei) Then sPfad = "" EXE4FILE = sPfad End Function Beispiel: Private Sub Command1_Click() Dim sa As String Dim va As Variant sa = EXE4FILE(Text1.Text) MsgBox sa, vbOKOnly, "assoziierte Anwendung" va = Shell(sa & " " & Text1.Text, vbNormalFocus) End Sub

Acrobat	413	Greg	29.03.03 18:55
Re: Acrobat	239	mrwebbie	30.03.03 12:58
Re: Acrobat	253	Oggi	30.03.03 14:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen