Extensions :
K-Meleon Web Browser Forum
for kmeleon 1.1.x and 1.50 to 1.5.2 use this version:
http://kmext.sourceforge.net/files/kmdefaulter.7z
kmdefaulter.exe MUST be saved in k-meleon's root folder.. otherwise big mess
create shortcut to kmdefaulter.exe in startmenu, desktop etc(where you usually run kmeleon)
$longpath=("""" & $kmpath & """")
$parm=($longpath & " " & """" & "%1" & """")
check()
Func check()
$isdef=RegRead("HKEY_CLASSES_ROOT\HTTP\shell\open\command", "")
$checker=StringRegExp($isdef, "(?i)k-meleon.exe")
If $checker=1 Then
Run($longpath)
Else
ask()
EndIf
EndFunc
Func ask()
$ask=MsgBox(32+4, "K-Meleon Defaulter", "K-Meleon is not currently your default browser. Would you like to set K-Meleon as your default B?")
If $ask=7 Then
Run($longpath)
Exit
Else
setdefault()
EndIf
EndFunc
Func setdefault()
RegWrite("HKEY_CLASSES_ROOT\HTTP\shell\open\command", "", "REG_SZ", $parm)
RegWrite("HKEY_CLASSES_ROOT\HTTPS\shell\open\command", "", "REG_SZ", $parm)
RegWrite("HKEY_CLASSES_ROOT\FTP\shell\open\command", "", "REG_SZ", $parm)
RegWrite("HKEY_CLASSES_ROOT\htmlfile\shell\open\command", "", "REG_SZ", $parm)
RegWrite("HKEY_CLASSES_ROOT\xhtmlfile\shell\open\command", "", "REG_SZ", $parm)
$candy = GUICreate("registering k-meleon", 184, 28, -1, -1, BitOR($WS_DLGFRAME, $WS_POPUP, $WS_EX_TOPMOST))
$label = GUICtrlCreateLabel("K-Meleon registered successfully", 15, 7, 210, 20)
GUISetState(@SW_SHOW)
WinSetOnTop("registering k-meleon", "", 1)
While 1
$msg = GUIGetMsg()
sleep(4000)
GUIDelete()
ExitLoop
WEnd
Run($longpath)
Exit
EndFunc
update: now safe..will exit with error message if user attempts running from wrong path
; Language: English
; Platform: Win9x/NT
; Author: yanni
#NoTrayIcon
#include <GUIConstant
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#Include <String.au3>
$kmpath=(@scriptdir & "\k-meleon.exe")
$foolproof=FileExists($kmpath)
If $foolproof=1 Then
check()
Else
MsgBox(16, "User Error", "Can't resume. Please run this utility from K-Meleon's folder!")
EndIf
Func check()
$kmpath=(@scriptdir & "\k-meleon.exe")
$longpath=("""" & $kmpath & """")
$parm=($longpath & " " & """" & "%1" & """")
$isdef=RegRead("HKEY_CLASSES_ROOT\HTTP\shell\open\command", "")
$checker=StringRegExp($isdef, "(?i)k-meleon.exe")
If $checker=1 Then
Run($longpath)
Else
ask()
EndIf
EndFunc
Func ask()
$kmpath=(@scriptdir & "\k-meleon.exe")
$longpath=("""" & $kmpath & """")
$parm=($longpath & " " & """" & "%1" & """")
$ask=MsgBox(32+4, "K-Meleon Defaulter", "K-Meleon is not currently your default browser. Would you like to set K-Meleon as your default B?")
If $ask=7 Then
Run($longpath)
Exit
Else
setdefault()
EndIf
EndFunc
Func setdefault()
$kmpath=(@scriptdir & "\k-meleon.exe")
$longpath=("""" & $kmpath & """")
$parm=($longpath & " " & """" & "%1" & """")
RegWrite("HKEY_CLASSES_ROOT\HTTP\shell\open\command", "", "REG_SZ", $parm)
RegWrite("HKEY_CLASSES_ROOT\HTTPS\shell\open\command", "", "REG_SZ", $parm)
RegWrite("HKEY_CLASSES_ROOT\FTP\shell\open\command", "", "REG_SZ", $parm)
RegWrite("HKEY_CLASSES_ROOT\htmlfile\shell\open\command", "", "REG_SZ", $parm)
RegWrite("HKEY_CLASSES_ROOT\xhtmlfile\shell\open\command", "", "REG_SZ", $parm)
$candy = GUICreate("registering k-meleon", 184, 28, -1, -1, BitOR($WS_DLGFRAME, $WS_POPUP, $WS_EX_TOPMOST))
$label = GUICtrlCreateLabel("K-Meleon registered successfully", 15, 7, 210, 20)
GUISetState(@SW_SHOW)
WinSetOnTop("registering k-meleon", "", 1)
While 1
$msg = GUIGetMsg()
sleep(4000)
GUIDelete()
ExitLoop
WEnd
Run($longpath)
Exit
EndFunc
Edited 2 time(s). Last edit at 04/22/2010 09:46PM by disrupted.)
kmdefaulter update:
-kmeleon integrated(auto runs with km startup), macro checks stats first, autoit and macro working together
-option to suppress the startup check
-registers gopher protocol
-associates icons
-adds support for vista/seven/2008 server
-uninstallable extension
to reenable if option is unchecked>toggle on/off>
edit>configuration>default check
due to macro/autotit integration, new km defaulter requires kmeleon 1.5.3 and above, previous km version users can download the non-integrated defaulter from link at first post
download new km defaulter
http://kmext.sourceforge.net/files/kmdefaulter2.7z
All about K-Meleon extensions.
KM default B check for xgrind
Posted by:
disrupted
Date: May 07, 2009 11:19PM
for kmeleon 1.1.x and 1.50 to 1.5.2 use this version:
http://kmext.sourceforge.net/files/kmdefaulter.7z
create shortcut to kmdefaulter.exe in startmenu, desktop etc(where you usually run kmeleon)
Re: KM default B check for xgrind
Posted by:
disrupted
Date: April 22, 2010 09:44PM
kmdefaulter update:
-kmeleon integrated(auto runs with km startup), macro checks stats first, autoit and macro working together
-option to suppress the startup check
-registers gopher protocol
-associates icons
-adds support for vista/seven/2008 server
-uninstallable extension
to reenable if option is unchecked>toggle on/off>
edit>configuration>default check
due to macro/autotit integration, new km defaulter requires kmeleon 1.5.3 and above, previous km version users can download the non-integrated defaulter from link at first post
download new km defaulter
http://kmext.sourceforge.net/files/kmdefaulter2.7z
English