Mit welchem Programm ist eine Datei verkn�pft ?
��� So k�nnte beispielsweise die Datei C:\Bootlog.txt mit
��� C:\Windows\Notepad.exe verkn�pft sein.
��� Dies ermitteln Sie wie folgt:

�

ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

FORM-CODE

   Private Declare Function FindExecute Lib "shell32.dll" Alias _
      "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory _
      As String, ByVal lpResult As String) As Long

   Private Function VerknuepftesProgramm(Datei As String) As String
      Dim Pfad As String
      Pfad = Space(256)
      FindExecute Datei, vbNullString, Pfad
      VerknuepftesProgramm = Left$(Pfad, InStr(Pfad, vbNullChar) - 1)
   End Function

   Private Sub Command1_Click()
      Dim Datei As String
      Datei = "C:\Bootlog.txt"
      x = VerknuepftesProgramm(Datei)
      MsgBox x
      'so k�nnten Sie die Datei nun starten:
      'Shell x & " " & Datei
   End Sub

����� Diese M�glichkeit m�ssen Sie beispielsweise unter Windows NT 4.0 verwenden,
���� um Hilfedateien aufzurufen !

���� Der Aufruf winhelp <Hilfedatei> f�hrt unter Windows NT
���� zur Fehlermeldung, dass die angegebene Datei keine Hilfedatei sei.

���� Sie m�ssen also zun�chst mit
���� x = VerknuepftesProgramm(<Hilfedateiname>) ermitteln,
���� wo sich die Datei WinHelp.exe befindet,
���� um diese dann mit Shell x & " " & <Hilfedateiname> aufzurufen !

�