Post by jNizM » 21 Apr 2016, 03:38
Nur ne schnell-Übersetzung aus dem Forum ins aktuelle ahk 1.1 (von skrommel)
Code: Select all
#NoEnv
#SingleInstance Force
SetBatchLines, -1
DetectHiddenWindows, On
; ===============================================================================================================================
WinGet, source, Id, A
MsgBox % source
Gui, Show, w800 h800
Gui, +LastFound
WinGet, target, Id, A
DetectHiddenWindows, On
DWM(target, source, 0.8)
; ===============================================================================================================================
DWM(target, source, zoom := 1, flags := 0x13, opacity := 150)
{
VarSetCapacity(thumbnail, A_PtrSize, 0)
if (DllCall("dwmapi.dll\DwmRegisterThumbnail", "ptr", target, "ptr", source, "ptr", &thumbnail) != 0)
return (ErrorLevel := 1) & 0
thumbnail := NumGet(thumbnail, 0, "ptr")
WinGetPos, wx, wy, ww, wh, % "ahk_id " target
VarSetCapacity(DWM_THUMBNAIL_PROPERTIES, 45, 0)
NumPut(flags, DWM_THUMBNAIL_PROPERTIES, 0, "uint")
NumPut(0, DWM_THUMBNAIL_PROPERTIES, 4, "int")
NumPut(0, DWM_THUMBNAIL_PROPERTIES, 8, "int")
NumPut(ww, DWM_THUMBNAIL_PROPERTIES, 12, "int")
NumPut(wh, DWM_THUMBNAIL_PROPERTIES, 16, "int")
NumPut(0, DWM_THUMBNAIL_PROPERTIES, 20, "int")
NumPut(0, DWM_THUMBNAIL_PROPERTIES, 24, "int")
NumPut(ww/zoom, DWM_THUMBNAIL_PROPERTIES, 28, "int")
NumPut(wh/zoom, DWM_THUMBNAIL_PROPERTIES, 32, "int")
NumPut(opacity, DWM_THUMBNAIL_PROPERTIES, 36, "uchar")
NumPut(1, DWM_THUMBNAIL_PROPERTIES, 37, "int")
NumPut(1, DWM_THUMBNAIL_PROPERTIES, 41, "int")
if (DllCall("dwmapi.dll\DwmUpdateThumbnailProperties", "ptr", thumbnail, "ptr", &DWM_THUMBNAIL_PROPERTIES) != 0)
return (ErrorLevel := 2) & 0
return 1
}
Lässt sich bestimmt mit spielen
Noch mehr hier:
AeroThumbnail by maul.esel
Nur ne schnell-Übersetzung aus dem Forum ins aktuelle ahk 1.1 (von skrommel)
[code=autohotkey]#NoEnv
#SingleInstance Force
SetBatchLines, -1
DetectHiddenWindows, On
; ===============================================================================================================================
WinGet, source, Id, A
MsgBox % source
Gui, Show, w800 h800
Gui, +LastFound
WinGet, target, Id, A
DetectHiddenWindows, On
DWM(target, source, 0.8)
; ===============================================================================================================================
DWM(target, source, zoom := 1, flags := 0x13, opacity := 150)
{
VarSetCapacity(thumbnail, A_PtrSize, 0)
if (DllCall("dwmapi.dll\DwmRegisterThumbnail", "ptr", target, "ptr", source, "ptr", &thumbnail) != 0)
return (ErrorLevel := 1) & 0
thumbnail := NumGet(thumbnail, 0, "ptr")
WinGetPos, wx, wy, ww, wh, % "ahk_id " target
VarSetCapacity(DWM_THUMBNAIL_PROPERTIES, 45, 0)
NumPut(flags, DWM_THUMBNAIL_PROPERTIES, 0, "uint")
NumPut(0, DWM_THUMBNAIL_PROPERTIES, 4, "int")
NumPut(0, DWM_THUMBNAIL_PROPERTIES, 8, "int")
NumPut(ww, DWM_THUMBNAIL_PROPERTIES, 12, "int")
NumPut(wh, DWM_THUMBNAIL_PROPERTIES, 16, "int")
NumPut(0, DWM_THUMBNAIL_PROPERTIES, 20, "int")
NumPut(0, DWM_THUMBNAIL_PROPERTIES, 24, "int")
NumPut(ww/zoom, DWM_THUMBNAIL_PROPERTIES, 28, "int")
NumPut(wh/zoom, DWM_THUMBNAIL_PROPERTIES, 32, "int")
NumPut(opacity, DWM_THUMBNAIL_PROPERTIES, 36, "uchar")
NumPut(1, DWM_THUMBNAIL_PROPERTIES, 37, "int")
NumPut(1, DWM_THUMBNAIL_PROPERTIES, 41, "int")
if (DllCall("dwmapi.dll\DwmUpdateThumbnailProperties", "ptr", thumbnail, "ptr", &DWM_THUMBNAIL_PROPERTIES) != 0)
return (ErrorLevel := 2) & 0
return 1
}[/code]
Lässt sich bestimmt mit spielen
Noch mehr hier: [url=https://github.com/maul-esel/AeroThumbnail]AeroThumbnail[/url] by maul.esel