Menu, MyMenu, Add,  Мои документы, Return, +Break 
Menu, MyMenu, Icon, Мои документы, % "HBITMAP:" GetThumbnailOrIcon(A_MyDocuments, 512), , 48
Menu, MyMenu, Add,  Startup, Return
Menu, MyMenu, Icon, Startup, % "HBITMAP:" GetThumbnailOrIcon(A_Startup, 512), , 48
Menu, MyMenu, Color, C0C0C0
Menu, MyMenu, Show
Return
Return:
	Return
 
 
GetThumbnailOrIcon(filePath, width, height := 0, iconOnly := false) {
   static IID_IShellItemImageFactory := "{BCC18B79-BA16-442F-80C4-8A59C30C463B}"
        , SIIGBF_BIGGERSIZEOK := 0x00000001
        , SIIGBF_ICONONLY     := 0x00000004
   
   VarSetCapacity(GUID, 16, 0)
   DllCall("Ole32\IIDFromString", "WStr", IID_IShellItemImageFactory, "Ptr", &GUID)
   hr := DllCall("Shell32\SHCreateItemFromParsingName", "WStr", filePath, "Ptr", 0, "Ptr", &GUID, "PtrP", IShellItemImageFactory)
   if (hr != 0)
      Return 0
   flag := SIIGBF_BIGGERSIZEOK, (iconOnly && flag |= SIIGBF_ICONONLY)
   ; IShellItemImageFactory::GetImage
   DllCall(NumGet(NumGet(IShellItemImageFactory+0) + A_PtrSize*3), "Ptr", IShellItemImageFactory, "Int64", height << 32 | width
                                                                                                , "Int", flag, "PtrP", hBitmap, "Int")
   ObjRelease(IShellItemImageFactory)
   Return hBitmap
}

ico = 01.ico

icoINd := 0
align := 4
cx := cy := 32 

Gui, Add, Button, w32 h32 xm hwndhBtn
himl := DllCall("ImageList_Create", "UInt",cx, "UInt",cy, "UInt",0x20, "UInt",1, "UInt",5)
 
SplitPath, ico, , , ext
if (ext = "bmp") {
	hbmp := DllCall("LoadImage", "UInt",0, "Str", ico, "UInt",0, "UInt",cx, "UInt",cy, "UInt",0x10)
	DllCall("ImageList_Add", "UInt",himl, "UInt",hbmp, "UInt",0)
	DllCall("DeleteObject", "UInt", hbmp)
}
else {
	DllCall("PrivateExtractIcons", "Str", ico, "UInt", icoINd, "UInt",cx, "UInt",cy, "UIntP", hicon, "UInt",0, "UInt",1, "UInt",0)
 	DllCall("ImageList_AddIcon", "UInt",himl, "UInt",hicon)
	DllCall("DestroyIcon", "UInt", hicon) 
}

VarSetCapacity(struct, 24)
NumPut(himl, struct, 0, "UInt")
NumPut(align, struct, 20, "UInt")
; BCM_FIRST := 0x1600, BCM_SETIMAGELIST := BCM_FIRST + 0x2
PostMessage, 0x1602, 0, &struct, , ahk_id %hBtn%
Gui, Show 
return 

filePath = C:\

Gui, +AlwaysOnTop -Border +HWNDhGui -Caption
Gui, Add, Button, x0 y0 w32 h32 hwndhBut
ButtonSetIcon(hBut, filePath, 32)
Gui, Show, w32 h32
Return 

GuiClose:
GuiEscape:
	ExitApp 

ButtonSetIcon(Hwnd, sFile, IconSize)  { 
	Static BM_SETIMAGE := 0xF7, IMAGE_ICON := 1, BS_ICON := 0x40 
	hIcon := GetThumbnailOrIcon(sFile, IconSize) 
	Control, Style, +%BS_ICON%, , % "ahk_id" Hwnd 
	PostMessage, BM_SETIMAGE, IMAGE_ICON, hIcon		,, % "ahk_id" Hwnd  
} 
 
GetThumbnailOrIcon(filePath, width, height := 0, iconOnly := false) {
   static IID_IShellItemImageFactory := "{BCC18B79-BA16-442F-80C4-8A59C30C463B}"
        , SIIGBF_BIGGERSIZEOK := 0x00000001
        , SIIGBF_ICONONLY     := 0x00000004
   
   VarSetCapacity(GUID, 16, 0)
   DllCall("Ole32\IIDFromString", "WStr", IID_IShellItemImageFactory, "Ptr", &GUID)
   hr := DllCall("Shell32\SHCreateItemFromParsingName", "WStr", filePath, "Ptr", 0, "Ptr", &GUID, "PtrP", IShellItemImageFactory)
   if (hr != 0)
      Return 0
   flag := SIIGBF_BIGGERSIZEOK, (iconOnly && flag |= SIIGBF_ICONONLY)
   ; IShellItemImageFactory::GetImage
   DllCall(NumGet(NumGet(IShellItemImageFactory+0) + A_PtrSize*3), "Ptr", IShellItemImageFactory, "Int64", height << 32 | width
                                                                                                , "Int", flag, "PtrP", hBitmap, "Int")
   ObjRelease(IShellItemImageFactory)
   Return hBitmap
}

filePath := "D:\Downloads\Аватар Путь воды_2022_WEB-DLRip-AVC.mkv"
Gui, Add, Pic,, % "HBITMAP:" . GetThumbnailOrIcon(filePath, 48, 48, true)
Gui, Add, Pic, x+0 yp, % "HBITMAP:" . GetThumbnailOrIcon(filePath, 400)
Gui, Show
Return

GuiClose:
GuiEscape:
   ExitApp
   
GetThumbnailOrIcon(filePath, width, height := 0, iconOnly := false) {
   static IID_IShellItemImageFactory := "{BCC18B79-BA16-442F-80C4-8A59C30C463B}"
        , SIIGBF_BIGGERSIZEOK := 0x00000001
        , SIIGBF_ICONONLY     := 0x00000004
   
   VarSetCapacity(GUID, 16, 0)
   DllCall("Ole32\IIDFromString", "WStr", IID_IShellItemImageFactory, "Ptr", &GUID)
   hr := DllCall("Shell32\SHCreateItemFromParsingName", "WStr", filePath, "Ptr", 0, "Ptr", &GUID, "PtrP", IShellItemImageFactory)
   if (hr != 0)
      Return 0
   flag := SIIGBF_BIGGERSIZEOK, (iconOnly && flag |= SIIGBF_ICONONLY)
   ; IShellItemImageFactory::GetImage
   DllCall(NumGet(NumGet(IShellItemImageFactory+0) + A_PtrSize*3), "Ptr", IShellItemImageFactory, "Int64", height << 32 | width
                                                                                                , "Int", flag, "PtrP", hBitmap, "Int")
   ObjRelease(IShellItemImageFactory)
   Return hBitmap
}

FileName = %match1% ; путь к папке иконка которой будет показываться
	hIcon := DllCall("Shell32\ExtractAssociatedIconA", UInt, 0, Str, FileName, UShortP, iIndex)

SendMessage, 0x80, 0, hIcon, , xplorer2

#NoTrayIcon
SetTitleMatchMode, 2


;global Icon1 := GetSysImgListIcon(global FilePath, sz[16])
;Icon2 := GetSysImgListIcon(FilePath, sz[32])
;Icon3 := GetSysImgListIcon(FilePath, sz[48])
;Icon4 := GetSysImgListIcon(FilePath, sz[256])
iconFilet := "C:\staff\torrent.ico"
iconFiles := "C:\staff\ahk.ico"
iconFile := "C:\staff\explorer.ico"
hIcont := LoadPicture(iconFilet, "w16 h-1", IMAGE_ICON)
hIcons := LoadPicture(iconFiles, "w16 h-1", IMAGE_ICON)
hIcon := LoadPicture(iconFile, "w16 h-1", IMAGE_ICON)



#IfWinActive, ahk_exe xplorer2_64.exe
changed = 0
~LButton::
~RButton::
WinWait, xplorer2
IMAGE_ICON := 1, WM_SETICON := 0x80, ICON_BIG := 1, ICON_SMALL := 0
sz := { 16: "SMALL", 32: "LARGE", 48: "EXTRALARGE", 256: "JUMBO" }

WinGetTitle, Title, A
;var := RegExMatch(title, "\-(.*)", match)
var := RegExMatch(title, "(.*)- xplorer2", match)
var := match1

var1 = %match1%
FilePath := var1
Icon1 := GetSysImgListIcon(FilePath, sz[16])
ToolTip, %FilePath%
IfInString, changed, 1
{
SendMessage, 0x80, 0, hIcon, , xplorer2
changed := 0
}
;IfInString, var, TORRENTS
;{
;SendMessage, 0x80, 0, hIcont, , xplorer2
;changed = 1
;}
IfInString, var, staff
{
SendMessage, 0x80, 0, hIcons, , xplorer2
changed = 1
}
;ToolTip, 1 %changed%
sleep, 1000
SendMessage, WM_SETICON, ICON_SMALL, Icon1.HICON, , xplorer2

SendMessage, 0xC, 0, ""var, , xplorer2

GetSysImgListIcon(Path, Size := "SYSSMALL", Overlay := "")  {
   static SHIL := { LARGE: 0x00, SMALL: 0x01, EXTRALARGE: 0x02, SYSSMALL: 0x03, JUMBO: 0x04 }  ; возможные размеры
        , AW := A_IsUnicode ? "W" : "A"
        , cbSFI := A_PtrSize + 8 + (340 << A_IsUnicode)
        , IID_IIL_Str := "{46EB5926-582E-4017-9FDF-E8998DAA0950}"
        , SHGFI := {SYSICONINDEX: 0x4000, PIDL: 0x8}
        , SHGIOI := {SHARE: 0x0FFFFFFF, LINK: 0x0FFFFFFE, SLOWFILE: 0x0FFFFFFD, DEFAULT: 0x0FFFFFFC}
        , ILD_IMAGE := 0x20
   
   VarSetCapacity(IID_IIL, 16, 0) ; IID
   DllCall("Ole32\IIDFromString", WStr, IID_IIL_Str, Ptr, &IID_IIL, UInt)
   
   HMOD := DllCall("GetModuleHandle", Str, "shell32.dll", UPtr)
   FileIconInit := DllCall("GetProcAddress", Ptr, HMOD, Ptr, 660, UPtr)
   DllCall(FileIconInit, UInt, True, UInt)
   
   VarSetCapacity(SFI, cbSFI, 0) ; SHFILEINFO
   DllCall("Shell32\SHParseDisplayName", Str, path, Ptr, 0, PtrP, ppidl, UInt, 0, UIntP, 0)
   Flags := SHGFI.PIDL | SHGFI.SYSICONINDEX
   if !DllCall("Shell32\SHGetFileInfo" . AW, Ptr, ppidl, UInt, 0, Ptr, &SFI, UInt, cbSFI, UInt, Flags, UPtr)
      Return False
   
   IconIndex := NumGet(SFI, A_PtrSize, "Int")
   if DllCall("Shell32\SHGetImageList", Int, SHIL[Size], Ptr, &IID_IIL, PtrP, IIL, UInt)
      Return False
   
   Flags := ILD_IMAGE
   if SHGIOI.HasKey(Overlay)
   && (IOV := DllCall("Shell32\SHGetIconOverlayIndex", Ptr, 0, UInt, SHGIOI[Overlay], Int)) >= 0
      Flags |= IOV << 8
      
   DllCall("Comctl32\ImageList_GetIconSize", Ptr, IIL, IntP, CX, IntP, CY, UInt)
   hIcon := DllCall("Comctl32\ImageList_GetIcon", Ptr, IIL, Int, IconIndex, UInt, Flags, UPtr)
   
   Return { HICON: hIcon, W: CX, H: CY }
}