Optional über die Registry (nur Windows)

Code:
Code:
Procedure.s GetDefaultBrowser()
Protected key.i
Protected size.i
Protected browser.s
If RegOpenKeyEx_(#HKEY_CURRENT_USER,"Software\Clients\StartMenuInternet",#Null,#KEY_READ,@key) = #ERROR_SUCCESS
If RegQueryValueEx_(key,#Null,#Null,#Null,#Null,@size) = #ERROR_SUCCESS
browser = Space(size)
If RegQueryValueEx_(key,#Null,#Null,#Null,@browser,@size) = #ERROR_SUCCESS
RegCloseKey_(key)
ProcedureReturn browser
EndIf
EndIf
RegCloseKey_(key)
EndIf
ProcedureReturn #Null$
EndProcedure
Debug GetDefaultBrowser()