16x16 Icon extrahieren

[billy-boy88]

Hi Leute,
ich versuche in meiner Anwendung sowohl 16x16 als auch 32x32 Icons aus einer .exe zu extrahieren und dann in ein TImage zu laden!

Bis jetzt sieht das ganze so aus:

Code:

TempIcon:=IconFromFile('C:\test.exe',0);
if (TempIcon <> 0) then    begin
   Icon:=TIcon.Create;
   Icon.Handle := TempIcon;
   Image1.Picture.Icon:=Icon;
end;



function TForm1.IconFromFile(const Filename: String; IconNr: Word): HICON;
var  buffer: array[0..2*MAX_PATH]of Char;
begin
StrPCopy(buffer, Filename);
Result := ExtractAssociatedIcon(HInstance, buffer, IconNr);
end;

Allerdings werden durch obige Funktion nur die 32x32 Icons extrahiert, wie krieg ich den jetzt ein 16x16er???

Wäre für Hilfe dankbar

MfG
Markus

[shmia]

Du musst die Funktion ExtractIconEx anstelle von ExtractAssociatedIcon verwenden!

@DP-Admin: bitte dieses Topic in richtige Kategorie verschieben.

[bigg]

Müßte mit SHGetFileInfo() aus der ShellApi funktionieren.