Qualität eines Icon verbessern?

[perle]

alternativ auch so:

Delphi-Quellcode:

uses ShellApi;

procedure TForm1.FormCreate(Sender: TObject);
var
  kleines_icon, grosses_icon : HICON;
  icon : TIcon;
begin
  ExtractIconEx(Pchar(Application.Exename),0,grosses_icon,kleines_icon,1);
  with TIcon.Create do
    begin
      Handle := grosses_icon;
      SaveToFile('C:\icon_gross.ico');
      Handle := kleines_icon;
      SaveToFile('C:\icon_klein.ico');
      Free;
    end;
end;