Home » Tipps & Tricks » Grafik » Sonstiges » Icon aus einer Datei speichern

Icon aus einer Datei speichern

In vielen ausführbaren Programmen und DLLs sind Icons integriert. Dieser Artikel zeigt, wie man diese Icons aus den Dateien über die Angabe eines Index extrahieren und auf einem Datenträger speichern kann.

Als ersten Parameter muss der Prozedur der Dateiname (inkl. Pfad!) der Datei übergeben werden, die die Icons enthält. Über den zweiten Parameter lässt der Dateiname angeben, den das extrahierte Icon erhalten soll. Sind in einer Datei mehrere Icons gespeichert, werden sie über einen Index, beginnend bei 0, angesprochen. Dieser Index wird dem dritten Parameter übergeben.

procedure SaveResIconToFile(const ASourceFilename, ADestFilename: string; const AIdx: Integer = 0);
var
  Icon: TIcon;
begin
  Icon := TIcon.Create;
  try
    Icon.Handle := ExtractIcon(HInstance,
                             PChar(ASourceFilename),
                             AIdx);
    Icon.SaveToFile(ADestFilename);
  finally
    Icon.Free;
  end;
end;