Farbverlust beim Speichern von Icon

[Doc Morelli]

Hi @ll,

also, ich benutze folgenden Code, um ein Icon zu speichern:

Delphi-Quellcode:

Function GetIconFromFile(FileName: String; Index: Integer): Ticon;
Begin
Result := TIcon.Create;
Result.Handle := ExtractIcon(HInstance, PCHAR(FileName), Index);
End;

procedure TForm1.Button1Click(Sender: TObject);
var Icon : TIcon;
begin
  Icon := TIcon.Create;
  Icon := (GetIconFromFile('C:\Windows\explorer.exe', 0));
  Icon.SaveToFile('C:\icon.ico');
  Icon.Free;
end;

Nur das Problem ist jetzt, dass beim Speichern ein enormer Farbverlust auftritt. Gibt es eine Möglichkeit, diesen zu beheben? Wenn ja, welchen?

MFG Doc