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