iv found a code to set my browser i mad as the default browser
unfortunately this is a vb6 module code]
code:
Const REG_SZ As Long = 1
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const KEY_SET_VALUE = &H2
Const KEY_ALL_ACCESS = &H3F
Const REG_OPTION_NON_VOLATILE = 0
Const HWND_BROADCAST = &HFFFF
Const WM_SETTINGCHANGE = &H1A
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam As String) As Long
Public Function SetClient(iClient As Integer, sDisplayName As String, sClientCommandLine As String, sClientResourceDLL As String, iLocalization As Integer, bGlobalClient As Boolean, Optional sCLParameters As String, Optional bMakeDefault As Boolean) As Integer
Dim iStatus As Integer
Dim hHandle As Long
Dim hGRegKey As String
Dim hLRegKey As String
Dim sCommand As String
Dim sKey As String
Dim sAll As String
Dim sRoot As String
Dim hKey As Long
Dim sLoc As String
hGRegKey = HKEY_LOCAL_MACHINE
hLRegKey = HKEY_CURRENT_USER
If iClient = 1 Then
sRoot = "Software\Clients\StartMenuInternet"
Else
sRoot = "Software\Clients\Mail"
End If
sCommand = "shell\open\command"
sKey = sRoot & "\" & sDisplayName
sAll = sKey & "\" & sCommand
sLoc = "@" & sClientResourceDLL & "," & iLocalization & Chr$(0)
sClientLocation_
= """" & sClientCommandLine & """" & IIf(sCLParameters <> "", " ", "") & Trim(sCLParameters) & Chr$(0)
sDisplayName = sDisplayName & Chr$(0)
iStatus = RegCreateKeyEx(hGRegKey, sKey, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)
iStatus = RegCreateKeyEx(hGRegKey, sAll, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)
If iStatus = ERROR_NONE Then
iStatus = RegOpenKeyEx(hGRegKey, sAll, 0, KEY_SET_VALUE, hKey)
iStatus = RegSetValueExString(hKey, "", 0&, REG_SZ, sClientLocation,_
Len(sClientLocation))
iStatus = RegCloseKey(hKey)
iStatus = RegOpenKeyEx(hGRegKey, sKey, 0, KEY_SET_VALUE, hKey)
iStatus = RegSetValueExString(hKey, "", 0&, REG_SZ, sDisplayName, Len(sDisplayName))
iStatus = RegSetValueExString(hKey, "LocalizedString", 0&, REG_SZ, sLoc, Len(sLoc))
iStatus = RegCloseKey(hKey)
Else
SetClient = iStatus
Exit Function
End If
If bMakeDefault Then
If bGlobalClient Then
iStatus = RegOpenKeyEx(hGRegKey, sRoot, 0, KEY_SET_VALUE, hKey)
iStatus = RegSetValueExString(hKey, "", 0&, REG_SZ, sDisplayName, Len(sDisplayName))
iStatus = RegCloseKey(hKey)
Else
iStatus = RegCreateKeyEx(hLRegKey, sRoot, 0&, vbNullString REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey,_
lRetVal)
iStatus = RegSetValueExString(hNewKey,_
"", 0&, REG_SZ, sDisplayName, Len(sDisplayName))
iStatus = RegCloseKey(hNewKey)
End If
UpdateMenus()
End If
End Function
Private Sub UpdateMenus()
Dim iRetVal As Integer
iRetVal = SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, "SOFTWARE\Clients\mail")
iRetVal = SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, "SOFTWARE\Clients\StartMenuInternet")
End Sub
my qestion is: how do i convert it.
please help me!!
Bart de Lange