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