Icons aus Systembibliothek (*.icl) extrahieren?

[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