;Autor: chi ;http://www.purebasic.fr/german/viewtopic.php?p=333823#p333823 EnableExplicit #ASSOCSTR_COMMAND = $1 #ASSOCF_ISPROTOCOL = $1000 Define pcchOut = #MAX_PATH Define pszOut$ = Space(pcchOut) If AssocQueryString_(#ASSOCF_ISPROTOCOL, #ASSOCSTR_COMMAND, @".html", @"open", @pszOut$, @pcchOut) = #S_OK Debug pszOut$ EndIf ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0