Icons aus Systembibliothek (*.icl) extrahieren?

[Tim.exe]

Hallo,

ich habe ein paar Icons runtergeladen, allerdings als Systembibliothek (*.icl).
Jetzt kann ich zwar wunderschön meine Desktop Icons austauschen, aber das hilft mir nicht viel, ich bräuchte die einzelnen Icons als *.ico.

Kann man die Bibliothek irgendwie extrahieren so das man die einzelnen Icons anders nutzen kann?

[Tim.exe]

Hab ein Programm gefunden, wen es interessiert: Microangelo

[negaH]

ICL's sind normale DLL's.

Delphi-Quellcode:

procedure ExtractICLIcon(Icon: TIcon; const FileName: String; IconIndex: Integer); 
var
  Lib: THandle;
begin
  Lib := LoadLibraryEx(PCHar(FileName), 0, LOAD_LIBARARY_AS_DATAFILE);
  if Lib <> 0 then
  try
    Icon.Handle := ExtractIcon(Lib, IconIndex);
  finally
    FreeLibrary(Lib);
  end;
end;

Gruß Hagen