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

[Nonsense]

Hmm, vielleicht bringt es was, die Palette zu ändern!?

[jim_raynor]

Zitat von Doc Morelli:

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;[/delphi]

Ich kann dir nicht bei deinem Problem helfen, allerdings hast du hier ein fettes Speicher Leck. Das Icon :=TIcon.Create ist überflüssig, da ja TIcon schon in der Funktion erstellt wird.

[tommie-lie]

Nur als Hinweis für alle Beteiligten: http://www.delphi-forum.de/viewtopic...asc&highlight=