AutoHotkey Community

Gui Add, Button, X255 Y348 W90 H24, NOTEPAD
Gui Show, x200 y50 w600 h400
WinGet gID, ID, %A_ScriptName%
WinGetPos X, Y, W, H, ahk_id %gID%

Run notepad,,,nPID
WinWait ahk_pid %nPID%
WinSet Style, -0x40000, ahk_pid %nPID%       ; Disable resize
WinMove ahk_pid %nPID%,,0, 400+2-H, 600, 360 ; Client area + Border - Window Height
WinGet nID, ID, ahk_pid %nPID%

DllCall("SetParent", UInt,nID, UInt,gID)
WinActivate ahk_id %gID%
WinActivate ahk_id %nID%

SetWinDelay -1

SetBatchLines, -1
SetWinDelay -1
CoordMode, tooltip, screen
DetectHiddenWindows, On


   Gui, +LastFound +ToolWindow +AlwaysOnTop
   hGui := WinExist()
   Gui, Add, Text, ,Open Notepad
   Gui, Show, AutoSize

   Dock_HostClass := "Notepad"
   Dock_ClientId := hGui
   Dock("L","B", "A_DockHostWidth", 0 )

return

Dock( H="R",V="T", sizeX="", sizeY="", dx=0, dy=0 ) {
   local hwnd, msg


   hwnd := WinExist("ahk_pid " . DllCall("GetCurrentProcessId","Uint"))
   Dock_msg := 0x550

   HookDll = wineventhook.dll
   
   Dock_pH := H
   Dock_pV := V
   Dock_dx := dx
   Dock_dy := dy
   Dock_sizeX := sizeX
   Dock_sizeY := sizeY

   Dock_hHookDll := API_LoadLibrary(HookDll)

   Dock_hHook0 := Hook(hwnd, Dock_msg, 3)                        ;   EVENT_SYSTEM_FOREGROUND
   Dock_hHook2 := Hook(hwnd, Dock_msg, 10, 11)      ;   EVENT_SYSTEM_MOVESIZESTART :=  10   EVENT_SYSTEM_MOVESIZEEND :=  11
   Dock_hHook3 := Hook(hwnd, Dock_msg, 0x800A, 0x800B, "Dock_HookHandler")      ;EVENT_OBJECT_STATECHANGE        0x0000800a, EVENT_OBJECT_LOCATIONCHANGE     0x0000800b,


   return Dock_hHook & Dock_hHookDll
}

API_ShowWindow(hwnd, flag){
   return DllCall("ShowWindow", "UInt", hwnd, "int", flag)    
}

Dock_Timer:
   critical
   WinGetClass Dock_cls, ahk_id %Dock_HookHwnd%

   if (Dock_cls != Dock_HostClass)
      return

   if (Dock_Event = 3)
      API_ShowWindow(Dock_ClientId, 8)
      
   WinGetPos, Dock_hX, Dock_hY, Dock_hW, Dock_hH,  ahk_id %Dock_HookHwnd%
   WinGetPos, Dock_cX, Dock_cY, Dock_cW, Dock_cH,  ahk_id %Dock_ClientId%
   Dock_H := Dock_cH
   Dock_W := Dock_cW

   
   if (Dock_sizeX)
      StringReplace, Dock_W, Dock_sizeX, A_DockHostWidth, %Dock_hW%


   if (Dock_sizeY)
      StringReplace, Dock_H, Dock_sizeY, A_DockHostHeight, %Dock_hH%

   

   Dock_x := Dock_hX
   if (Dock_pH = "R")
         Dock_x := Dock_hX + Dock_hW
   else if (Dock_pH = "M")
      Dock_x := Dock_hX + (Dock_hW//2) - (Dock_cW//2)

   Dock_y := Dock_hY
   if (Dock_pV = "B")
      Dock_y := Dock_hY + Dock_hH
   else if (Dock_pV = "M")
      Dock_y := Dock_hY + (Dock_hH//2) - (Dock_cH//2)


   Dock_x += Dock_dx, Dock_y += Dock_dy
   WinMove, ahk_id %Dock_ClientId%, ,%Dock_X%, %Dock_Y%, %Dock_W%, %Dock_H%
return


Undock(){
   goSub Dock_Timer
   Unhook(Dock_hHook, Dock_msg)
   API_FreeLibrary(HookDll)
}
   
Dock_HookHandler(wParam, lParam, msg, hwnd) {
   local e

   GetHookParams(lparam, Dock_event, Dock_HookHwnd)      


   ;if (Dock_event = 10)      ;movesizse start
      ;SetTimer Dock_Timer, 0

   ;if (Dock_event = 11)      ;movesize end
      ;Undock()

   ;if (Dock_event = 3)
   GoSub Dock_Timer
}


GetHookParams(lparam, ByRef event, ByRef hwnd="", ByRef idObject="", ByRef idChild="", ByRef dwEventThread="", ByRef dwmsEventTime="") {
   event         :=GetDeRefInteger(lParam+4)
   hwnd         :=GetDeRefInteger(lParam+8)
   idObject      :=GetDeRefInteger(lParam+12)
   idChild         :=GetDeRefInteger(lParam+16)
   dwEventThread   :=GetDeRefInteger(lParam+20)
   dwmsEventTime   :=GetDeRefInteger(lParam+24)
}

Hook(comm_hwnd, comm_msg, s_event, e_event="", function="", wparam=0) {
   global HookDll
   
   r := DllCall(HookDll "\reghook", "UInt", comm_hwnd, "UInt", COMM_MSG, "UInt", s_event, "UInt", e_event ? e_event : s_event, "UInt", wparam)
   if !r
      return 0

   if (function)
      OnMessage(COMM_MSG, function)

   return r
}

Unhook(handle, com_msg) {
   OnMessage(com_msg)
   return DllCall("UnhookWinEvent", "UInt", handle)
}

API_LoadLibrary( dll ) {
   return DllCall("LoadLibrary", "str", dll)
}

API_FreeLibrary( h ) {
    return DllCall("FreeLibrary", "uint", h)
}

InsertInteger(pInteger, ByRef pDest, pOffset = 0, pSize = 4)
; The caller must ensure that pDest has sufficient capacity.  To preserve any existing contents in pDest,
; only pSize number of bytes starting at pOffset are altered in it.
{
   Loop %pSize%  ; Copy each byte in the integer into the structure as raw binary data.
      DllCall("RtlFillMemory", UInt, &pDest + pOffset + A_Index-1, UInt, 1, UChar, pInteger >> 8*(A_Index-1) & 0xFF)
}

ExtractInteger(ByRef pSource, pOffset = 0, pIsSigned = false, pSize = 4)
; pSource is a string (buffer) whose memory area contains a raw/binary integer at pOffset.
; The caller should pass true for pSigned to interpret the result as signed vs. unsigned.
; pSize is the size of PSource's integer in bytes (e.g. 4 bytes for a DWORD or Int).
; pSource must be ByRef to avoid corruption during the formal-to-actual copying process
; (since pSource might contain valid data beyond its first binary zero).
{
   Loop %pSize%  ; Build the integer by adding up its bytes.
      result += *(&pSource + pOffset + A_Index-1) << 8*(A_Index-1)
   if (!pIsSigned OR pSize > 4 OR result < 0x80000000)
      return result  ; Signed vs. unsigned doesn't matter in these cases.
   ; Otherwise, convert the value (now known to be 32-bit) to its signed counterpart:
   return -(0xFFFFFFFF - result + 1)
}


GetDeRefInteger(pSource, pIsSigned = false, pSize = 4)
; pSource is an integer pointer to a raw/binary integer
; The caller should pass true for pSigned to interpret the result as signed vs. unsigned.
; pSize is the size of PSource's integer in bytes (e.g. 4 bytes for a DWORD or Int).
{
   Loop %pSize%  ; Build the integer by adding up its bytes.
      result += *(pSource + A_Index-1) << 8*(A_Index-1)
   if (!pIsSigned OR pSize > 4 OR result < 0x80000000)
      return result  ; Signed vs. unsigned doesn't matter in these cases.
   ; Otherwise, convert the value (now known to be 32-bit) to its signed counterpart:
   return -(0xFFFFFFFF - result + 1)
}

SetDeRefInteger(pInteger, pDest, pSize = 4)
; The caller must ensure that *pDest has sufficient capacity and that pDest is a valid dereferencable integer pointer.
; To preserve any existing contents at *pDest, only pSize number of bytes are altered.
{
   Loop %pSize%  ; Copy each byte in the integer into the structure as raw binary data.
      DllCall("RtlFillMemory", UInt, pDest + A_Index-1, UInt, 1, UChar, pInteger >> 8*(A_Index-1) & 0xFF)
}

#SingleInstance Force
#NoEnv
SetBatchLines -1

SetWinDelay -1
OnExit Close
HookDll = wineventhook.dll

   Run notepad,,,nPID
   WinWait ahk_pid %nPID%
   WinGet Dock_HostID, ID, ahk_pid %nPID%

   Gui +LastFound -Caption +ToolWindow +Border
   Dock_ClientID := WinExist()
   Gui Add, Text,,Docked Window
   Gui Show

   Dock("L","B", "A_DockHostWidth", 0)
   GoSub F12
Return

F12::
   WinActivate ahk_id %Dock_HostID%
   GoSub Dock_Update
   Sleep 0
   ListVars
   Sleep 0
   WinHide %A_ScriptFullPath% - AutoHotkey
Return

Close:
   WinClose ahk_id %Dock_HostID%
ExitApp

Dock(H="R",V="T", sizeX="", sizeY="", dx=0, dy=0) {
   Local hwnd, msg

   hwnd := WinExist("ahk_pid " . DllCall("GetCurrentProcessId"))
   Dock_msg := 0x550

   Dock_pH := H
   Dock_pV := V
   Dock_dx := dx
   Dock_dy := dy
   Dock_sizeX := sizeX
   Dock_sizeY := sizeY

   Dock_hHookDll := API_LoadLibrary(HookDll)

   Dock_hHook0 := Hook(hwnd, Dock_msg, 3)      ; EVENT_SYSTEM_FOREGROUND
   Dock_hHook2 := Hook(hwnd, Dock_msg, 10, 11) ; EVENT_SYSTEM_MOVESIZESTART 10   EVENT_SYSTEM_MOVESIZEEND 11
   Dock_hHook3 := Hook(hwnd, Dock_msg, 0x800A, 0x800B, "Dock_HookHandler") ;EVENT_OBJECT_STATECHANGE 0x0000800a, EVENT_OBJECT_LOCATIONCHANGE 0x0000800b

   Return Dock_hHook & Dock_hHookDll
}

API_ShowWindow(hwnd, flag){
   return DllCall("ShowWindow", "UInt", hwnd, "int", flag)
}

Dock_Update:
   If (Dock_HookHwnd != Dock_HostID)
      Return

   API_ShowWindow(Dock_ClientId, 8)

   WinGetPos, Dock_hX, Dock_hY, Dock_hW, Dock_hH,  ahk_id %Dock_HookHwnd%
   WinGetPos, Dock_cX, Dock_cY, Dock_cW, Dock_cH,  ahk_id %Dock_ClientId%
   Dock_H := Dock_cH
   Dock_W := Dock_cW

   If (Dock_sizeX)
      StringReplace, Dock_W, Dock_sizeX, A_DockHostWidth, %Dock_hW%

   If (Dock_sizeY)
      StringReplace, Dock_H, Dock_sizeY, A_DockHostHeight, %Dock_hH%

   Dock_x := Dock_hX
   If (Dock_pH = "R")
         Dock_x := Dock_hX + Dock_hW
   Else If (Dock_pH = "M")
      Dock_x := Dock_hX + (Dock_hW//2) - (Dock_cW//2)

   Dock_y := Dock_hY
   If (Dock_pV = "B")
      Dock_y := Dock_hY + Dock_hH
   Else If (Dock_pV = "M")
      Dock_y := Dock_hY + (Dock_hH//2) - (Dock_cH//2)

   Dock_x += Dock_dx, Dock_y += Dock_dy
   WinMove ahk_id %Dock_ClientId%,,%Dock_X%, %Dock_Y%, %Dock_W%, %Dock_H%
Return

Undock() {
   GoSub Dock_Update
   Unhook(Dock_hHook, Dock_msg)
   API_FreeLibrary(HookDll)
}

Dock_HookHandler(wParam, lParam, msg, hwnd) {
   Global
   GetHookParams(lparam, Dock_event, Dock_HookHwnd)
   GoSub Dock_Update
}

GetHookParams(lparam, ByRef event, ByRef hwnd="", ByRef idObject="", ByRef idChild="", ByRef dwEventThread="", ByRef dwmsEventTime="") {
   DllCall("RtlMoveMemory", UIntP,event        , UInt,lParam+ 4, UInt, 4)
   DllCall("RtlMoveMemory", UIntP,hwnd         , UInt,lParam+ 8, UInt, 4)
   DllCall("RtlMoveMemory", UIntP,idObject     , UInt,lParam+12, UInt, 4)
   DllCall("RtlMoveMemory", UIntP,idChild      , UInt,lParam+16, UInt, 4)
   DllCall("RtlMoveMemory", UIntP,dwEventThread, UInt,lParam+20, UInt, 4)
   DllCall("RtlMoveMemory", UIntP,dwmsEventTime, UInt,lParam+24, UInt, 4)
}

Hook(comm_hwnd, comm_msg, s_event, e_event="", function="", wparam=0) {
   Global HookDll
   r := DllCall(HookDll "\reghook", UInt,comm_hwnd, UInt,COMM_MSG, UInt,s_event, UInt,e_event ? e_event : s_event, UInt,wparam)
   If (function)
      OnMessage(COMM_MSG, function)
   Return r
}

Unhook(handle, com_msg) {
   OnMessage(com_msg)
   Return DllCall("UnhookWinEvent", "UInt", handle)
}

API_LoadLibrary( dll ) {
   Return DllCall("LoadLibrary", "str", dll)
}

API_FreeLibrary( h ) {
   Return DllCall("FreeLibrary", "uint", h)
}

 API_ShowWindow(Dock_ClientId, 8)

SetWinDelay, -1
SetBatchLines, -1

Critical
Gui, +LastFound -Caption +Resize +ToolWindow ;+AlwaysOnTop
Gui, Add, Edit, x0 y0 w300 h30, This is docking client
Gui, Add, Button, x+0 yp gOnClick, New Notepad
Gui, Show, x-500 y0 h30
gui := WinExist()

OnClick:
Run, notepad, , , pid
SetTitleMatchMode, 2
WinWait, ahk_pid %pid%
If !hook
   SetTimer, CheckMov, 1
hook := WinExist()

CheckMov:
If !WinExist("ahk_id" . hook) {
   Gui, Destroy
   SetTimer, CheckMov, Off
   ExitApp
}
WinGetPos, x, y, w, , ahk_id %hook%
y -= 50
Gui, Show, x%x% y%y% w%w% NA
Return

~*Esc::ExitApp