; Источник: https://autohotkey.com/board/topic/88701-magnifier-for-win7-how-to-use-the-magnification-api/

#Singleinstance force
#NoEnv
#Persistent
;#Include %a_scriptdir%/Gdip.ahk
SetBatchLines -1
Coordmode, Mouse, Screen
OnExit, Uninitialize

zoomlevel := 2
Interface_update_speed = 1
w_size:=600
h_size:=200

Gui GUI_Drawing:+AlwaysOnTop -Caption +E0x80000 +hwndhGui -Border +ToolWindow +OwnDialogs +Owner +LastFound -E0x20
GUI GUI_Drawing:Show,NA,GUI_Drawing

Gdip_Startup()
hdc := CreateCompatibleDC()
hbm := CreateDIBSection(1,1,hdc)
SelectObject(hdc, hbm)



; Create magnifier control
hInstance := DllCall("GetWindowLong", "Ptr", hGui, "Ptr", GWL_HINSTANCE:=-6)
DllCall("LoadLibrary", "str", "magnification.dll")
DllCall("magnification.dll\MagInitialize")
DllCall("magnification\MagSetWindowFilterList","UPtr", magHwnd, "Uint", 0, "Int", 1, "UPtr*", hGui) ; MW_Filtermode_Exclude

magHwnd := DllCall("CreateWindowEx"
	, "Ptr", 0
	, "Str", "Magnifier"
	, "Str", "MagnifierWindow"
	, "Ptr", WS_CHILD := 0x40000000 | MS_SHOWMAGNIFIEDCURSOR := 0x1 | WS_VISIBLE := 0x10000000
	, "Int", 0
	, "Int", 0
	, "Int", a_screenwidth*2
	, "Int", a_screenheight*2
	, "Ptr", hGui
	, "Ptr", 0
	, "Ptr", hInstance
	, "Ptr", 0)

; Magnification transform matrix (Initializing the control)

gosub,ChangeZoom

loop
{
  sleep,% Interface_update_speed
  if (zoomlevel>1)
  {
    doonce=
    MouseGetPos, now_x, now_y
    cs_x := now_x - (w_size)/2
    cs_y := now_y - (h_size)/2
    VarSetCapacity(magRECT, 16)
    NumPut(cs_x, magRECT, 0, "uint"), NumPut(cs_y, magRECT, 4, "uint")
    DllCall("magnification.dll\MagSetWindowSource", "Ptr", magHwnd, "Ptr", &magRECT)
    UpdateLayeredWindow(hGui, hdc, now_x - (w_size)/2*zoomlevel, now_y - (h_size)/2*zoomlevel, w_size*zoomlevel, h_size*zoomlevel)
  }
  else if !doonce
  {
    doonce=1
    UpdateLayeredWindow(hGui,hdc,0,0,1,1,0)
  }
}
return


^WheelUp::
if (zoomlevel<10)
  zoomlevel++
gosub,ChangeZoom
return

^WheelDown::
if (zoomlevel>1)
  zoomlevel--
gosub,ChangeZoom
return



ChangeZoom:
Matrix := zoomlevel "|0|0|"
        . "0|" zoomlevel "|0|"
        . "0|0|" zoomlevel
StringSplit, Matrix, Matrix, |
VarSetCapacity(magMatrix, 36, 0)
Loop, 9
  NumPut(Matrix, magMatrix, (A_Index-1)*4, "float")
DllCall("magnification.dll\MagSetWindowTransform", "Ptr", magHwnd, "Ptr", &magMatrix)
tooltip,% (zoomlevel>1) ? zoomlevel : "Off"
settimer,tooltip,-1000
return

tooltip:
tooltip
return

Uninitialize:
Esc::
DllCall("magnification.dll\MagUninitialize")
ExitApp


; ------------------- from gdip library --------------------
UpdateLayeredWindow(hwnd, hdc, x="", y="", w="", h="", Alpha=255)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"

	if ((x != "") && (y != ""))
		VarSetCapacity(pt, 8), NumPut(x, pt, 0, "UInt"), NumPut(y, pt, 4, "UInt")

	if (w = "") ||(h = "")
		WinGetPos,,, w, h, ahk_id %hwnd%

	return DllCall("UpdateLayeredWindow"
					, Ptr, hwnd
					, Ptr, 0
					, Ptr, ((x = "") && (y = "")) ? 0 : &pt
					, "int64*", w|h<<32
					, Ptr, hdc
					, "int64*", 0
					, "uint", 0
					, "UInt*", Alpha<<16|1<<24
					, "uint", 2)
}
; ------------------- from gdip library --------------------

CreateDIBSection(w, h, hdc="", bpp=32, ByRef ppvBits=0)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"

	hdc2 := hdc ? hdc : GetDC()
	VarSetCapacity(bi, 40, 0)

	NumPut(w, bi, 4, "uint")
	, NumPut(h, bi, 8, "uint")
	, NumPut(40, bi, 0, "uint")
	, NumPut(1, bi, 12, "ushort")
	, NumPut(0, bi, 16, "uInt")
	, NumPut(bpp, bi, 14, "ushort")

	hbm := DllCall("CreateDIBSection"
					, Ptr, hdc2
					, Ptr, &bi
					, "uint", 0
					, A_PtrSize ? "UPtr*" : "uint*", ppvBits
					, Ptr, 0
					, "uint", 0, Ptr)

	if !hdc
		ReleaseDC(hdc2)
	return hbm
}

SelectObject(hdc, hgdiobj)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"

	return DllCall("SelectObject", Ptr, hdc, Ptr, hgdiobj)
}
CreateCompatibleDC(hdc=0)
{
   return DllCall("CreateCompatibleDC", A_PtrSize ? "UPtr" : "UInt", hdc)
}
Gdip_Startup()
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"

	if !DllCall("GetModuleHandle", "str", "gdiplus", Ptr)
		DllCall("LoadLibrary", "str", "gdiplus")
	VarSetCapacity(si, A_PtrSize = 8 ? 24 : 16, 0), si := Chr(1)
	DllCall("gdiplus\GdiplusStartup", A_PtrSize ? "UPtr*" : "uint*", pToken, Ptr, &si, Ptr, 0)
	return pToken
}
GetDC(hwnd=0)
{
	return DllCall("GetDC", A_PtrSize ? "UPtr" : "UInt", hwnd)
}
ReleaseDC(hdc, hwnd=0)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"

	return DllCall("ReleaseDC", Ptr, hwnd, Ptr, hdc)
}

&To+4

VarSetCapacity(From, 24, 0)
VarSetCapacity(To, 24, 0)

NumPut(1, From, 0, "UInt")
NumPut(11, From, 16, "UInt")

NumPut(2, To, 0, "UInt")
NumPut(22, To, 16, "UInt")

MsgBox % NumGet(To, 0, "UInt") "`n" NumGet(To, 16, "UInt")

DllCall("msvcrt\memcpy"
       , "Ptr", &To
       , "Ptr", &From
       , "Uint", 24
       , "Cdecl")
	   
MsgBox % NumGet(To, 0, "UInt") "`n" NumGet(To, 16, "UInt")