Ich möchte gerne ein 24x24 Icon aus der Shell32.dll extrahiern, doch irgendwie bekomme ich das nicht hin ...
Meine bisherigen Versuche laufen darauf hinas, dass ich das 16x16 Icon kriege, und das 32x32, aber n9icht das 24x24, welches ich brauche und weilches auch existiert ...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Icon1, Icon2: TIcon;
klein, gross: HIcon;
begin
try
Icon1 := TIcon.Create;
Icon2 := TIcon.Create;
klein := 0;
gross := 0;
Label1.Caption := inttostr (ExtractIconEx (PChar('C:\WINDOWS\system32\shell32.dll'), 23, klein, gross, 1));
Icon1.Handle := klein;
Icon2.Handle := gross;
PaintBox321.Canvas.Rectangle(-1, -1, Succ(PaintBox321.Width), Succ(PaintBox321.Height));
PaintBox321.Canvas.Draw (0, 0, Icon1);
PaintBox321.Canvas.Draw (40, 0, Icon2);
Icon1.Free;
Icon2.Free;
except
ShowMessage(SysErrorMessage(GetLastError));
end;
end;
Dann sind in der Paintbox halt das 16x16 rechts und das 32x32 links, aber 24x24
Kennt sich damit wer aus ?