Qualität eines Icon verbessern?

[Chris P]

Ich hab das ganze mal versucht mit SHGetFileInfo, aber da kommt genau die selbe schlechte Qualität bei raus, wie bei dem Source ganz oben.

Mit ExtractIconEx bekommt man zwar nur Exe-Icons, aber die haben eine gute Qualität!

Das muss doch irgendwie auch mit anderen Icons gehen?

[perle]

icons von jpg dateien z.b. werden doch in der Registry definiert. Lies doch dort den pfad zum entsprechenden icon aus und kopier es dir.


EDIT : Genau das hab ich jetzt auch mal probiert und es funktioniert im Grunde auch, allerdings habe ich dann ebenfalls eine recht miese Qualität der Icons

Delphi-Quellcode:

uses ShellApi, RegWork, LibDirectoryU, StrUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
  big_icon, small_icon : HIcon;
  IconS : String;
begin
  IconS := rw.GetFileIconString('jpg');
  if pos('dll',IconS) > 0 then
   begin
     // wenn das Icon aus einer
     // dll geladen werden muss
     ExtractIconEx(PChar(copy(IconS,
                   0,
                   pos(',',IconS) - 1)),
                   StrToInt(RightStr(IconS,Length(IconS) - pos(',',IconS))),
                   big_icon,
                   small_icon,
                   1);
     with TIcon.Create do
     begin
       Handle := big_icon;
       SaveToFile(Applicationdir + 'big_icon.ico');
       Handle := small_icon;
       SaveToFile(Applicationdir + 'small_icon.ico');
     end;
   end;
end;

[Chris P]

Wieso kann man die Qualität nicht besser machen??

Das muss doch irgendwie gehen?

Die Icons aufm Desktop werden doch auch richtig dargestellt.

Hat denn keiner eine Idee?

[flomei]

Post doch mal nen Bild von so einem "schlechten" Icon.
Vielleicht werden die ja nur interpoliert dargestellt und sind in Wirklichkeit echt so hässlich?!?

MFG Florian

[perle]

Ja sie sind hässlich

hier mal die beiden Icons (groß und klein) von einem JPEG