Verknüpfte Anwendung einer Datei ermitteln [WinAPI]

Beitrag von **RSBasic** » 04.03.2011 16:14

Mit diesem Code kann der Pfad zur verknüpften Anwendung einer Datei ermittelt werden. Sogar ohne Registry-Code.

EnableExplicit

Define lpResult$ = Space(256)
Define FEResult

#ERROR_FILE_NOT_FOUND = $2
#ERROR_PATH_NOT_FOUND = $3
#ERROR_BAD_FORMAT2 = $11

FEResult = FindExecutable_("C:\Program Files\PureBasic\Examples\Sources\Library.pb","",@lpResult$)
Select FEResult
  Case 0
    MessageRequester("","Aufruf der WinAPI fehlgeschlagen, nicht genügend Speicher.",0)
  Case 31
    MessageRequester("","Für diese Datei existiert keine verknüpfte Anwendung.",0)
  Case #ERROR_FILE_NOT_FOUND
    MessageRequester("","Die angegebene Datei wurde nicht gefunden.",0)
  Case #ERROR_PATH_NOT_FOUND
    MessageRequester("","Der angegebene Pfad wurde nicht gefunden.",0)
  Case #ERROR_BAD_FORMAT2
    MessageRequester("","Die verknüpfte Anwendung ist ungültig oder keine Win32 Anwendung.",0)
  Default
    MessageRequester("","Pfad: "+lpResult$,0)
EndSelect

;FindExecutable: http://msdn.microsoft.com/en-us/library/bb776419%28v=vs.85%29.aspx