AHK: изменить размер шрифта в блокноте по Ctrl+колесико

#if WinActive("ahk_class Notepad")
f1::
FontSize(100)
return
f2::
FontSize(14)
return
#if

FontSize(size)
{
   SetWinDelay -1
   WinMenuSelectItem, A,, Format, Font...
   WinWaitActive, Font ahk_class #32770
   ControlSetText, Edit3, %size%
   SetControlDelay -1
   ControlClick, Button5,,,,, NA
   return
}

Setbatchlines -1
EVENT := 0x0010 ; EVENT_SYSTEM_DIALOGSTART 

SetWinEventHook(EVENT, EVENT, 0, RegisterCallback("HookProc", "F"), 0, 0, 0) 
 
HookProc(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)
{   
   if Start
      WinHide, Font ahk_class #32770
}

SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
{
   return DllCall("SetWinEventHook" , UInt, eventMin
                                    , UInt, eventMax
                                    , Ptr, hmodWinEventProc
                                    , Ptr, lpfnWinEventProc
                                    , UInt, idProcess
                                    , UInt, idThread
                                    , UInt, dwFlags)
}
return

#if WinActive("ahk_class Notepad")
f1::
Global Start := 1
FontSize(100)
Global Start := 0
return

f2::
Global Start := 1
FontSize(14)
Global Start := 0
return
#if


FontSize(size)
{
   DetectHiddenWindows, on
   SetWinDelay -1
   WinMenuSelectItem, A,, Format, Font...
   WinWaitActive, Font ahk_class #32770
   ControlSetText, Edit3, %size%
   SetControlDelay -1
   ControlClick, Button5,,,,, NA
   WinWaitClose
   return
}

HookProc(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)
{   
   if Start
      WinHide, Font ahk_class #32770
}

#if WinActive("ahk_class Notepad")
f1::
FontSize(100)
return
f2::
FontSize(14)
return
#if


FontSize(size)
{
   DetectHiddenWindows, on
   SetWinDelay -1
   WinMenuSelectItem, A,, Format, Font...
   loop 100
      WinHide, Font ahk_class #32770
   WinWaitActive, Font ahk_class #32770
   ControlSetText, Edit3, %size%
   SetControlDelay -1
   ControlClick, Button5,,,,, NA
   WinWaitClose
   return
}

^WheelDown::
^WheelUp:: ChangeNotepadeFont(InStr(A_ThisHotkey, "Up"), true)  ; если второй параметр true, новый размер шрифта будет сохранён в реестре
   
ChangeNotepadeFont(UpDown, save)  {
   static LOGPIXELSY := 90, IsUnicode := 1, szLF := 28 + 32 * (IsUnicode ? 2 : 1)
        , WM_GETFONT := 0x31, WM_SETFONT := 0x30, ANTIALIASED_QUALITY := 4, DRAFT_QUALITY := 1
        , MEM_COMMIT := 0x1000, MEM_RELEASE := 0x8000, PAGE_READWRITE := 0x4, INFINITE := 0xFFFFFFFF
   Critical
   
   if !hProc := Verification()
      Return
   
   SendMessage, WM_GETFONT
   hCurrentFont := ErrorLevel
   
   VarSetCapacity(LOGFONT, szLF, 0)
   DllCall("GetObject", Ptr, hCurrentFont, Int, szLF, Ptr, &LOGFONT)
   
   height := NumGet(LOGFONT, "Int")
   hDC := DllCall("GetDC", Ptr, hwnd, Ptr)
   CurrentFontSize := -DllCall("MulDiv", Int, height, Int, 72, Int, DeviceCaps := DllCall("GetDeviceCaps", Ptr, hDC, Int, LOGPIXELSY))
   if UpDown
      NewFontSize := CurrentFontSize + (CurrentFontSize >= 14 ? 2 : 1)
   else
      NewFontSize := CurrentFontSize - (CurrentFontSize <= 14 ? 1 : 2)
   (NewFontSize < 2 && NewFontSize := 2)
   height := -DllCall("MulDiv", Int, NewFontSize, Int, DeviceCaps, Int, 72)
   DllCall("ReleaseDC", Ptr, hwnd, Ptr, hDC)
   NumPut(height, LOGFONT, "Int")
   NumPut(NewFontSize > 18 ? ANTIALIASED_QUALITY : DRAFT_QUALITY, &LOGFONT + 26, "Char")
   
   remotePtr := DllCall("VirtualAllocEx", UInt, hProc, UInt, 0, UInt, szLF, UInt, MEM_COMMIT, UInt, PAGE_READWRITE, Ptr)
   DllCall("WriteProcessMemory", Ptr, hProc, Ptr, remotePtr, Ptr, &LOGFONT, UInt, szLF, UInt, 0)
   
   pFunc := DllCall("GetProcAddress", Ptr, DllCall("GetModuleHandle", "str", "Gdi32.dll", Ptr), AStr, "CreateFontIndirectW", Ptr)
   hThrd := DllCall("CreateRemoteThread", Ptr, hProc, Ptr, 0, Ptr, 0, Ptr, pFunc, Ptr, remotePtr, UInt, 0, UInt, 0)
   DllCall("WaitForSingleObject", Ptr, hThrd, UInt, INFINITE)
   DllCall("GetExitCodeThread", Ptr, hThrd, UIntP, hFont)
   DllCall("CloseHandle", Ptr, hThrd)
   DllCall("VirtualFreeEx", Ptr, hProc, Ptr, remotePtr, UInt, 0, UInt, MEM_RELEASE)
   DllCall("CloseHandle", Ptr, hProc)
   
   SendMessage, WM_SETFONT, hFont, 1
   
   WinGetPos, X, Y
   CoordMode, ToolTip
   ToolTip, % NewFontSize, X, Y, 19
   SetTimer, DelToolTip, -1000
   if save
      RegWrite, REG_DWORD, HKCU\Software\Microsoft\Notepad, iPointSize, % NewFontSize * 10
}

DelToolTip()  {
   ToolTip,,,, 19
}

Verification()  {
   static SYNCHRONIZE := 0x100000, STANDARD_RIGHTS_REQUIRED := 0xF0000
        , PROCESS_ALL_ACCESS := (STANDARD_RIGHTS_REQUIRED|SYNCHRONIZE|0xFFF)
        
   WinGetClass, winClass, A
   if (winClass != "Notepad")
      Return
   
   ControlGet, hwnd, hwnd,, Edit1, A
   WinWait, ahk_id %hwnd%
   WinGet, PID, PID
   hProc := DllCall("OpenProcess", UInt, PROCESS_ALL_ACCESS, Int, 0, UInt, PID, Ptr)
   if A_Is64bitOS {
      DllCall("IsWow64Process", Ptr, hProc, UIntP, bool)
      if (bool) ^ (A_PtrSize = 4)  {
         MsgBox, Процессы скрипта и блокнота имеют разную разрядность, скрипт не будет работать!
         DllCall("CloseHandle", Ptr, hProc)
         Return
      }
   }
   Return hProc
}

SetBatchLines -1

#if WinActive("ahk_class Notepad")
f1::
FontSize(100)
return
f2::
FontSize(14)
return
#if


FontSize(size)
{
   SetWinDelay -1
   WinExist("A")
   ScreenSaver(1)
   DllCall( "SystemParametersInfo", UInt,95, UInt,0, UIntP,OSet, UInt,0 )    ; SPI_GETSNAPTODEFBUTTON
   DllCall( "SystemParametersInfo", UInt,96, UInt,False, UInt,0, UInt,0 )     ; SPI_SETSNAPTODEFBUTTON 
   WinActivate
   WinWaitActive
   WinMenuSelectItem,,, 3&, 2&
   WinWaitActive, ahk_class #32770
   ControlSetText, Edit3, %size%
   SetControlDelay -1
   ControlClick, Button5,,,,, NA
   WinWaitClose
   DllCall( "SystemParametersInfo", UInt,96, UInt,OSet, UInt,0, UInt,0 )     ; SPI_SETSNAPTODEFBUTTON
   ScreenSaver(0)
   return
}

ScreenSaver(toggle)
{
   if toggle
   {
      SS_BITMAP := 0xE
      pToken := Gdip_Startup()
      pBitmap := Gdip_BitmapFromScreen()
      hBitmap := Gdip_CreateHBITMAPFromBitmap(pBitmap)
      Gdip_DisposeImage(pBitmap)
      Gui, -Caption +ToolWindow +AlwaysOnTop +Border -DPIScale
      Gui, Margin, 0, 0
      Gui, Add, Pic, hwndhPic %SS_BITMAP%
      SetImage(hPic, hBitmap)
      Gui, Show, x-1 y-1 w%A_ScreenWidth% h%A_ScreenHeight%
      Gdip_Shutdown(pToken)
      DllCall("DeleteObject", Ptr, hBitmap)
   }
   else
      Gui, Destroy
   return
}

f1::
SS_BITMAP := 0xE
pToken := Gdip_Startup()
pBitmap := Gdip_BitmapFromScreen()
hBitmap := Gdip_CreateHBITMAPFromBitmap(pBitmap)
Gdip_DisposeImage(pBitmap)
Gui, -Caption +ToolWindow +Owner +AlwaysOnTop +Border -DPIScale
;Gui, +E0x80000 
Gui, Margin, 0, 0
Gui, Add, Pic, hwndhPic %SS_BITMAP%
SetImage(hPic, hBitmap)
Gui, Show, x-1 y-1 w%A_ScreenWidth% h%A_ScreenHeight%
MsgBox,,,, 0.1
Gdip_Shutdown(pToken)
DllCall("DeleteObject", Ptr, hBitmap)
Gui, Destroy
return

pToken := Gdip_Startup()
Gui, -Caption +E0x80000 +AlwaysOnTop +ToolWindow +hwndhGui
Gui, Show, NA

hbm := CreateDIBSection(A_ScreenWidth, A_ScreenHeight)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromHDC(hdc)
pBitmap := Gdip_BitmapFromScreen()
Gdip_DrawImage(G, pBitmap)
UpdateLayeredWindow(hGui, hdc, 0, 0, A_ScreenWidth, A_ScreenHeight)

SelectObject(hdc, obm)
DeleteObject(hbm)
Gdip_DisposeImage(pBitmap)
DeleteDC(hdc)
Gdip_DeleteGraphics(G)
Gdip_Shutdown(pToken)

MsgBox,,, Меня не видно!, .1
Sleep, 200
ExitApp

pToken := Gdip_Startup()
Gui, -Caption +E0x80000 +AlwaysOnTop +ToolWindow +hwndhGui +LastFound
Gui, Color, Black
Gui, Show, NA


hbm := CreateDIBSection(A_ScreenWidth, A_ScreenHeight)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
UpdateLayeredWindow(hGui, hdc, 0, 0, A_ScreenWidth, A_ScreenHeight)

SelectObject(hdc, obm)
DeleteObject(hbm)
DeleteDC(hdc)
Gdip_Shutdown(pToken)
WinSet, Transparent, 180

Sleep, 400
ExitApp

pToken := Gdip_Startup()
Gui, -Caption +E0x80000 +AlwaysOnTop +ToolWindow +hwndhGui
Gui, Show, NA
hbm := CreateDIBSection(A_ScreenWidth, A_ScreenHeight)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromHDC(hdc)
pBitmap := Gdip_BitmapFromScreen()
Gdip_DrawImage(G, pBitmap)
UpdateLayeredWindow(hGui, hdc, 0, 0, A_ScreenWidth, A_ScreenHeight)
SelectObject(hdc, obm)
DeleteObject(hbm)
Gdip_DisposeImage(pBitmap)
DeleteDC(hdc)
Gdip_DeleteGraphics(G)
Gdip_Shutdown(pToken)

ControlClick,,ahk_class Button ahk_exe explorer.exe,,R,,NA
sleep 2000

Gui, Destroy
return