Verknüpfte Anwendung einer Datei ermitteln [WinAPI]
Verfasst: 04.03.2011 16:14
Mit diesem Code kann der Pfad zur verknüpften Anwendung einer Datei ermittelt werden. Sogar ohne Registry-Code. 
Code: Alles auswählen
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