Zjištění aplikace asociované k souboru

Postup:
V deklarační části formuláře zapište:

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

Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&

Na formulář přidejte tlačítko a na jeho událost Click:
Private Sub Command1_Click()

   Dim lpExecutable As String * 255
   Dim lngReturn As Long
   lngReturn = FindExecutable("c:\xx.psp", vbNullString, lpExecutable)

   Select Case lngReturn
      Case 0
         MsgBox "Chyba systému."
      Case 31
         MsgBox "Chyba systému."
      Case ERROR_FILE_NOT_FOUND
         MsgBox " Soubor nebyl nalezen."
      Case ERROR_PATH_NOT_FOUND
         MsgBox "Specifikovaná cesta nebyla nalezena."
      Case ERROR_BAD_FORMAT
         MsgBox "EXE soubor je chybný (není Win32 nebo je poškozený)."
      Case Else
         MsgBox lpExecutable
   End Select

End Sub

Zpět