Nextron wrote:You could have your script create a new gui without title bars but specific background color or image and use a setparent dllcall to attach it to to any of your SCCM windows.
This is relatively simply but has the limitation of the Gui must be in the client area of the parent window. So you can not use it to overlay the title bar. But if you have some blank real estate that can be covered up this works well.
This puts a simple Gui text box on an existing Excel window.
Code: Select all
Win_Hwnd := WinExist("ahk_exe excel.exe ahk_class XLMAIN")
; Gui Create
Gui, Color, Green
Gui, Font, s12 cRed, Bold Verdana
Gui, Add, Text,, This is Text
Gui, +LastFound +ToolWindow +AlwaysOnTop -Caption -Border HWNDGui_Hwnd
DllCall("SetParent", "uint", Gui_Hwnd, "uint", Win_Hwnd)
Gui, Show, x200 y100 ; Position on Gui Parent
return
Esc::ExitApp
The Gui could be much more complex. I use this technique to add buttons to several programs that I want to be able to execute AHK code from within.
Here is an example that uses a class called WindowWatch that monitors shell hook events and when it detects an Excel window being created it adds a child button to the Excel window.
Code: Select all
WindowWatch.Start()
WindowWatch.Add("WW_Excel_Created",, "XLMAIN", "EXCEL.EXE",1)
WW_Excel_Created(Win_Hwnd)
{
WinGetPos,,,Win_W,, ahk_id %Win_Hwnd%
Gui_X := Win_W - 190
; Gui Create
Gui Excel:Default
Gui +Resize
Gui, Font, s12, Bold Verdana
Gui, Margin, 0, 0
Gui, Add, Button, xp yp Default gExcelButton, Button
Gui, +LastFound +ToolWindow +AlwaysOnTop -Caption -Border HWNDGui_Hwnd
DllCall("SetParent", "uint", Gui_Hwnd, "uint", Win_Hwnd)
Gui, Show, x%Gui_X% y120
return
; Gui Action when Button is Clicked
ExcelButton:
MsgBox Clicked
return
}
Esc::ExitApp
; [Class] WindowWatch
; Fanatic Guru
; 2017 08 10
;
; Class to watch for shell hook events of specified windows
;
;{-----------------------------------------------
;
; Method:
; WindowWatch.Start()
;
; Desc: Initialize Shell Hook
;
; ----------
;
; Method:
; WindowWatch.Add(Func, wTitle:="", wClass:="", wExe:="", Event:=1)
;
; Desc: Add Event to watch
;
; Parameters:
; 1) {Func} Function to Call on Event (Default = "", All Windows)
; 2) {wTitle} Window Title to watch for Event (Default = "", All Windows)
; 3) {wClass} Window Class to watch for Event (Default = "", All Windows)
; 4) {wExe} Window Exe to watch for Event (Default = "", All Windows)
; 5) {Event} Event (Default = 1, Window Created)
; Shell Hook Events:
; 1 = HSHELL_WINDOWCREATED
; 2 = HSHELL_WINDOWDESTROYED
; 3 = HSHELL_ACTIVATESHELLWINDOW
; 4 = HSHELL_WINDOWACTIVATED
; 5 = HSHELL_GETMINRECT
; 6 = HSHELL_REDRAW
; 7 = HSHELL_TASKMAN
; 8 = HSHELL_LANGUAGE
; 9 = HSHELL_SYSMENU
; 10 = HSHELL_ENDTASK
; 11 = HSHELL_ACCESSIBILITYSTATE
; 12 = HSHELL_APPCOMMAND
; 13 = HSHELL_WINDOWREPLACED
; 14 = HSHELL_WINDOWREPLACING
; 15 = HSHELL_HIGHBIT
; 16 = HSHELL_FLASH
; 17 = HSHELL_RUDEAPPACTIVATED
;
; ----------
;
; Desc: Function Called on Event
; Func(Win_Hwnd, Win_Title, Win_Class, Win_Exe, Win_Event)
;
; Parameters:
; 1) {Win_Hwnd} Window Handle ID of Window with Event
; 2) {Win_Title} Window Title of Window with Event
; 3) {Win_Class} Window Class of Window with Event
; 4) {Win_Exe} Window Exe of Window with Event
; 5) {Win_Event} Window Event
;
;}
class WindowWatch
{
Message(wParam, lParam )
{
If ( this.Events ~= wParam)
{
wId:= lParam
WinGetTitle, wTitle, ahk_id %wId%
WinGetClass, wClass, ahk_id %wId%
WinGet, wExe, ProcessName, ahk_id %wId%
for key, element in this.Windows
{
if ((element.Title = wTitle or element.Title = "") and (element.Class = wClass or element.Class = "") and (element.Exe = wExe or element.Exe = "") and (element.Event = wParam))
if IsFunc(Func := element.Func)
%Func%(wId, wTitle, wClass, wExe, wParam)
}
}
}
Add(Func, wTitle:="", wClass:="", wExe:="", Event:=1)
{
if !this.Windows
this.Windows := {}
this.Windows.Push({Func: Func, Title: wTitle, Class: wClass, Exe: wExe, Event: Event})
if !(this.Events ~= Event)
this.Events .= Event " "
return
}
Start()
{
DllCall("RegisterShellHookWindow", UInt, A_ScriptHwnd)
MsgNum := DllCall("RegisterWindowMessage", Str, "SHELLHOOK")
OnMessage(MsgNum, "ShellMessage")
}
}
ShellMessage(wParam,lParam)
{
WindowWatch.Message(wParam,lParam)
}
Excel is not the best program to add a button to because it has very little stable blank client area to place a button plus it has means within the program to create custom buttons but it is the program I used for testing when I wrote WindowWatch.
FG
