Цитата assch:
|
можно ли это сделать силами Autoit »
|
Можно:
Код:
#include <GDIPlus.au3>
#include <WinAPI.au3>
_FileExtractIcon("shell32.dll", @DesktopDir & "\Icon.ico", -20)
Func _FileExtractIcon($sSrcFileIcon, $sOutFileIcon, $iIndex = 0)
Local $aRet, $hIcon, $pBitmapdll, $pBitmap
If $iIndex < 0 Then
$iIndex = ($iIndex * -1)
EndIf
$aRet = DllCall("shell32.dll", "long", "ExtractAssociatedIcon", "int", 0, "str", $sSrcFileIcon, "int*", $iIndex - 1)
$hIcon = $aRet[0]
_GDIPlus_Startup()
$pBitmapdll = DllCall($ghGDIPDll, "int", "GdipCreateBitmapFromHICON", "ptr", $hIcon, "int*", 0)
$pBitmap = $pBitmapdll[2]
_WinAPI_DestroyIcon($hIcon)
_GDIPlus_ImageSaveToFileEx($pBitmap, $sOutFileIcon, "{557CF400-1A04-11D3-9A73-0000F81EF32E}")
_GDIPlus_ImageDispose($pBitmap)
_GDIPlus_Shutdown()
Return 1
Endfunc
