diff options
| -rw-r--r-- | lib/Misc.ahk | 49 | ||||
| -rw-r--r-- | scripts.ahk | 7 |
2 files changed, 56 insertions, 0 deletions
diff --git a/lib/Misc.ahk b/lib/Misc.ahk new file mode 100644 index 0000000..3ebaca7 --- /dev/null +++ b/lib/Misc.ahk @@ -0,0 +1,49 @@ +; by "just me" at AutoHotkey forums +ClipboardSetFiles(FilesToSet, DropEffect := "Copy") { + ; FilesToSet - list of fully qualified file pathes separated by "`n" or "`r`n" + ; DropEffect - preferred drop effect, either "Copy", "Move" or "" (empty string) + Static TCS := A_IsUnicode ? 2 : 1 ; size of a TCHAR + Static PreferredDropEffect := DllCall("RegisterClipboardFormat", "Str", "Preferred DropEffect") + Static DropEffects := {1: 1, 2: 2, Copy: 1, Move: 2} + ; ------------------------------------------------------------------------------------------------------------------- + ; Count files and total string length + TotalLength := 0 + FileArray := [] + Loop, Parse, FilesToSet, `n, `r + { + If (Length := StrLen(A_LoopField)) + FileArray.Push({Path: A_LoopField, Len: Length + 1}) + TotalLength += Length + } + FileCount := FileArray.Length() + If !(FileCount && TotalLength) + Return False + ; ------------------------------------------------------------------------------------------------------------------- + ; Add files to the clipboard + If DllCall("OpenClipboard", "Ptr", A_ScriptHwnd) && DllCall("EmptyClipboard") { + ; HDROP format --------------------------------------------------------------------------------------------------- + ; 0x42 = GMEM_MOVEABLE (0x02) | GMEM_ZEROINIT (0x40) + hDrop := DllCall("GlobalAlloc", "UInt", 0x42, "UInt", 20 + (TotalLength + FileCount + 1) * TCS, "UPtr") + pDrop := DllCall("GlobalLock", "Ptr" , hDrop) + Offset := 20 + NumPut(Offset, pDrop + 0, "UInt") ; DROPFILES.pFiles = offset of file list + NumPut(!!A_IsUnicode, pDrop + 16, "UInt") ; DROPFILES.fWide = 0 --> ANSI, fWide = 1 --> Unicode + For Each, File In FileArray + Offset += StrPut(File.Path, pDrop + Offset, File.Len) * TCS + DllCall("GlobalUnlock", "Ptr", hDrop) + DllCall("SetClipboardData","UInt", 0x0F, "UPtr", hDrop) ; 0x0F = CF_HDROP + ; Preferred DropEffect format ------------------------------------------------------------------------------------ + If (DropEffect := DropEffects[DropEffect]) { + ; Write Preferred DropEffect structure to clipboard to switch between copy/cut operations + ; 0x42 = GMEM_MOVEABLE (0x02) | GMEM_ZEROINIT (0x40) + hMem := DllCall("GlobalAlloc", "UInt", 0x42, "UInt", 4, "UPtr") + pMem := DllCall("GlobalLock", "Ptr", hMem) + NumPut(DropEffect, pMem + 0, "UChar") + DllCall("GlobalUnlock", "Ptr", hMem) + DllCall("SetClipboardData", "UInt", PreferredDropEffect, "Ptr", hMem) + } + DllCall("CloseClipboard") + Return True + } + Return False +} diff --git a/scripts.ahk b/scripts.ahk index 301a46a..e8a838b 100644 --- a/scripts.ahk +++ b/scripts.ahk @@ -1,4 +1,5 @@ #Include ../lib/Acc.ahk +#Include ../lib/Misc.ahk ; Directives ------------------------------------------------------------------ @@ -48,6 +49,12 @@ return #ScrollLock::Media_Play_Pause #Pause::Media_Next +*~^PrintScreen:: +Run, "C:\Program Files\ImageMagick\magick.exe" clipboard: scr.jpg, % env("TEMP"), Hide +Sleep, 200 +ClipboardSetFiles(env("TEMP") "\scr.jpg") +return + #e::Run, % "explorer /n, ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" ; open my computer ; Enable/disable proxy server |