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