Icon aus einer Datei speichern |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
var
Icon: TIcon;
begin
Icon := TIcon.Create;
try
Icon.Handle := ExtractIcon(HInstance,
PChar(ASourceFilename),
AIdx);
Icon.SaveToFile(ADestFilename);
finally
Icon.Free;
end;
end;