ExtractAssociatedIcon, ExtractIconExW, ExtractIcon mit Autoit3

Zitat von Candyland

So kam ich auf die idee gleich eine Ganze icon gruppe herauszuladen...

Wieso nicht gleich alle?

Mit alle meine ich, alle vorhandenen Icons anzeigen und dann auswählen, welche davon in welchem Format (jpg, png, ...) gespeichert werden sollen.
Ich habe ein halb fertiges Script, mit dem das geht... werde mich die Tage mal dran setzen und es fertig schreiben.

Zitat von Candyland

Keine ahnung wie ich die Zeile zu füllen habe :<

Wenn du mit Dll-Calls noch nicht so gut bewandert bist, solltest du besser die dafür bereits vorhandenen API-Funktionen benutzen.

Zitat von Candyland

Local $Ret = DllCall('shell32', 'long', ''ExtractIconExW', 'int', 0, 'str', $Path, 'int*', 1)

$Path, der Name der Exe, Dll oder des Icons/Icon-Library (*.icl), von dem das Icon extrahiert werden soll, ist der einzige Parameter, den du vor dem Aufruf deklarieren musst.

Hier schon mal vorab eine minimalistische Lösung für dich.

;-- TIME_STAMP   2017-04-01 02:11:41   v 0.1


#include <GDIPlus.au3>
#include <WinAPIGdi.au3>
#include <WinAPIShellEx.au3>
#include <WinAPIShPath.au3>


Global $aExtract = ['c:\Program Files (x86)\AutoIt3\AutoIt3.exe', @SystemDir & '\shell32.dll']
Global $sSavePath = 'm:\'	; mit abschließendem Backslash!
Global $sFormat = '.ico' ; '.jpg', '.png', '...'
Global $iIndex = 0, $iWidth = 48, $iHeight = 48


_ExtractIcon($aExtract, $iIndex, $iWidth, $iHeight, $sFormat, $sSavePath)
_ExtractIcon('C:\Windows\explorer.exe', 3, 32, 32, '.jpg', 'm:\')
_ExtractIcon('C:\Program Files (x86)\Mozilla Firefox\firefox.exe', 1, 32, 32, '.png', 'm:\')


Func _ExtractIcon($vExtract, $iIndex, $iWidth, $iHeight, $sFormat, $sSavePath)
	Local $aExtract[1], $bDelete = True, $sSaveAs, $sCLSID, $hBitmap, $sCLSID


	; Initialize GDI+ library
	_GDIPlus_Startup()


	$sExt = _WinAPI_PathFindExtension($sSavePath)


	If IsArray($vExtract) Then
		$aExtract = $vExtract
	Else
		$aExtract[0] = $vExtract
	EndIf
	For $i = 0 To UBound($aExtract) - 1 Step 1
		$sSaveAs = $sSavePath & _WinAPI_PathRemoveExtension(_WinAPI_PathStripPath($aExtract[$i])) & '_' & StringFormat('%03i', $i) & $sFormat


		$hIcon = _WinAPI_Create32BitHICON(_WinAPI_ShellExtractIcon($aExtract[$i], $iIndex, $iWidth, $iHeight), $bDelete)
		If $hIcon = 0 Then ExitLoop ; kein Icon vorhanden oder Index zu hoch!


		If $sExt = '.ico' Then
			_WinAPI_SaveHICONToFile($sSaveAs, $hIcon)
		Else
			; Get encoder CLSID
			$sCLSID = _GDIPlus_EncodersGetCLSID(StringTrimLeft($sExt, 1))
			$hBitmap = _GDIPlus_BitmapCreateFromHICON($hIcon)
			_GDIPlus_ImageSaveToFileEx($hBitmap, $sSaveAs, $sCLSID)
			_GDIPlus_BitmapDispose($hBitmap)
		EndIf


		_WinAPI_DestroyIcon($hIcon)
	Next


	; Shut down GDI+ library
	_GDIPlus_Shutdown()
EndFunc   ;==>_ExtractIcon

Zitat von Candyland

Ich kann mir gut vorstellen das hierbei Probleme entstehen werden.

Nein, die Sache muss man dann lediglich anders angehen... wenn du willst kann ich dir ja schon mal das unfertige Script hier hochladen, damit du darin schnuppern kannst, wie es in dem Fall gemacht werden kann.

Zitat von Candyland

Ja danke dir, ich hätte die frage allerdings besser formulieren sollen, mir ist nicht bewusst woher ich weiß wie die Ganze zeile auszufüllen ist, $Path kam von mir doch von dem rest der Zeile weiß ich nichts. (hier markiert mit fragezeichen)
Local $Ret = DllCall('shell32', 'long(?)', ''ExtractIconExW', 'int(?)', 0(?), 'str(?)', $Path, 'int*(?)', 1(ICON))

Mehr gibt es in dieser Zeile nicht, was du da noch ausfüllen müsstest. Hier mal ein erleuchtender Link für dich zu einer super Seite von @BugFix: Dll-Tutorial für AutoIt

Noch ein Tip... wenn du in SciTE mit dem Caret auf einem Funktionsnamen stehts, kannst du mit Strg + j zu dieser Funktion springen, auch wenn diese mit den Includes geladen wurde. Dort kannst du dir dann anschauen, wie der DllCall auszusehen hat und welche Parameter hier erwartet werden.

Hier ein Bsp:

Func _WinAPI_ShellExtractIcon($sIcon, $iIndex, $iWidth, $iHeight)
	Local $aRet = DllCall('shell32.dll', 'int', 'SHExtractIconsW', 'wstr', $sIcon, 'int', $iIndex, 'int', $iWidth, _
			'int', $iHeight, 'ptr*', 0, 'ptr*', 0, 'int', 1, 'int', 0)
	If @error Or Not $aRet[0] Or Not $aRet[5] Then Return SetError(@error, @extended, 0)
	; If Not $aRet[0] Then Return SetError(1000, 0, 0)


	Return $aRet[5]
EndFunc   ;==>_WinAPI_ShellExtractIcon

Zitat von BugFix

Vielleicht kannst du ja auch den IconFileScanner von Holger Kotsch verwenden. Nutze ich immer, um mir die Icon in exe/dll anzusehen.

Mit Windows 10 funktioniert der IconFileScanner jedenfalls nicht, da er nur wenige der "gefundenen Icons" anzeigt und mit der tatsächlich vorhandenen Anzahl auch total daneben liegt. Zudem will ich mir die Icons nicht nur anschauen können, sondern sie auch in dem von mir gewünschten Format speichern können, was in meinem Tool auch funktioniert.

Beispiel: explorer.exe
Der IconFileScanner findet 29 Icon groups, meint aber, es seien Icons, zeigt davon nur 2 an... beide aus der ersten Icon group... beide in derselben Größe 32x32.
Mein Tool findet 29 Icon groups und insgesamt 233 Icons... zeigt davon 5 NICHT an... und alle in der Original-Größe!

Derzeit kämpfe ich noch mit zwei Problemen...

• Wie bekomme ich die Icons ($hIcon) mit Transparenz in das Pic-Control ($hBitmap)?
• Wie bringe ich GDIPlus dazu, auch Icons die nur zwei Farben haben, als Bitmap anzuzeigen? (die 5 Icons, die in meinem Bild komplett schwarz sind...)

Erstes Problem habe ich versucht mit _ScreenCapture_CaptureWnd() zu lösen, wobei die Transparenz soweit auch erhalten bleibt, aber das Bild insgesamt blasser wird.

IconFileScanner.png_ExtractIcon.png _ScreenCapture_CaptureWnd.png

Nun habe ich lediglich noch das Problem, dass ich Icons mit nur zwei Farben nicht speichern kann... der Rest ist quasi nur noch Fleißarbeit.

_ExtractIcon.pngExplorer.png