检测图标的拖动时触发

; 检测鼠标在何时拖动电脑图标的示例 ; 来源：https://www.autohotkey.com/boards/viewtopic.php?f=6&t=62224 #NoEnv SysGet, SM_CXDRAG, 68 SysGet, SM_CYDRAG, 69 Return Esc::ExitApp ~LButton:: MouseGetPos, X0, Y0, hwnd, CtrlClass WinGetClass, WinClass, ahk_id %hwnd% if IsMouseOverIcon(WinClass, CtrlClass) { Items := CreateList(GetSelectedItems(hwnd, WinClass)) while GetKeyState("LButton", "P") { MouseGetPos, X, Y if (Abs(X-X0) > SM_CXDRAG || Abs(Y-Y0) > SM_CYDRAG) while GetKeyState("LButton", "P") ToolTip, % "Dragging " Items } ToolTip } Return IsMouseOverIcon(WinClass, CtrlClass) { try if (WinClass = "CabinetWClass" && CtrlClass = "DirectUIHWND3") { oAcc := Acc_ObjectFromPoint() Name := Acc_Parent(oAcc).accValue(0) Name := Name ? Name : oAcc.accValue(0) Return Name ? true : false } else if (WinClass = "Progman" || WinClass = "WorkerW") { oAcc := Acc_ObjectFromPoint(ChildID) Return ChildID ? true : false } } CreateList(Items) { N := Items.MaxIndex() if (N = 1) List := Items[1] else if (N > 1) { List := N " items:`n" for each, item in Items List .= each ". " item "`n" } Return List } GetSelectedItems(hwnd, WinClass) { Items := [] if (WinClass = "CabinetWClass") { for window in ComObjCreate("Shell.Application").Windows if (window.hwnd = hwnd) for item in window.Document.SelectedItems Items.Push(item.Name) } else if (WinClass = "Progman" || WinClass = "WorkerW") { ControlGet, hwnd, HWND, , SysListView321, ahk_id %hwnd% ControlGet, Files, List, Selected Col1, , ahk_id %hwnd% Loop, Parse, Files, `n Items.Push(A_LoopField) } Return Items } ; https://github.com/Drugoy/Autohotkey-scripts-.ahk/blob/master/Libraries/Acc.ahk Acc_Init() { Static h If Not h h:=DllCall("LoadLibrary","Str","oleacc","Ptr") } Acc_ObjectFromPoint(ByRef _idChild_ = "", x = "", y = "") { Acc_Init() If DllCall("oleacc\AccessibleObjectFromPoint", "Int64", x==""||y==""?0*DllCall("GetCursorPos","Int64*",pt)+pt:x&0xFFFFFFFF|y<<32, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0 Return ComObjEnwrap(9,pacc,1), _idChild_:=NumGet(varChild,8,"UInt") } Acc_Parent(Acc) { try parent:=Acc.accParent return parent?Acc_Query(parent): } Acc_Query(Acc) { ; thanks Lexikos - www.autohotkey.com/forum/viewtopic.php?t=81731&p=509530#509530 try return ComObj(9, ComObjQuery(Acc,"{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1) }