add default browser hotkey

4 files changed, 13 insertions, 0 deletions

diff --git a/build.bat b/build.bat
index c7e141e..fcd6d81 100644
--- a/build.bat
+++ b/build.bat
@@ -5,4 +5,5 @@ set out=out
 if not exist %out%\ md %out% || exit /b 1
 for %%f in ("*.ico") do if not exist %out%\%%f copy /y "%%f" %out%
 for %%f in ("*.bmp") do if not exist %out%\%%f copy /y "%%f" %out%
+for %%f in ("*.reg") do if not exist %out%\%%f copy /y "%%f" %out%
 type tt.*.ahk 2>nul | tt -c"" -d";;" -o%out%/ scripts.ahk  || pause
\ No newline at end of file
diff --git a/chrome.reg b/chrome.reg
new file mode 100644
index 0000000..8c00c8b
--- /dev/null
+++ b/chrome.reg
diff --git a/mypal.reg b/mypal.reg
new file mode 100644
index 0000000..bcafc08
--- /dev/null
+++ b/mypal.reg
diff --git a/scripts.ahk b/scripts.ahk
index de1fd0b..605fad2 100644
--- a/scripts.ahk
+++ b/scripts.ahk
@@ -36,6 +36,18 @@ return
 #e::Run, % "explorer /n, ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
 #!t::WinSet, AlwaysOnTop,, ahk_class tooltips_class32 ; fix bug
 
+; Set default web browser
+
+#^d::
+Run, reg import "%A_ScriptDir%\chrome.reg",, Hide
+DllCall("Shell32\SHChangeNotify", UInt, 0x08000000, UInt, 0, UIntP, 0, UIntP, 0)
+return
+
+#!d::
+Run, reg import "%A_ScriptDir%\mypal.reg",, Hide
+DllCall("Shell32\SHChangeNotify", UInt, 0x08000000, UInt, 0, UIntP, 0, UIntP, 0)
+return
+
 ; Sleep
 
 ^+F12 Up::