24x24, 40x40, 48x48, 60x60, ... Icons auslesen

[mumu]

ich bekomm mit ExtractIconEx immer nur die 16x16 und 32x32 Icons. Wie komm ich an die anderen ran?

hab auch schon folgendes probiert:
Extracting Icons

bringt aber auch nix...

jemand ideen?

[Flocke]

Nicht jedes Icon beinhaltet alle Größen. Bist du denn sicher, dass die anderen Größen überhaupt in den Icons vorhanden sind, mit denen du es ausprobierst?

[Der_Unwissende]

Hi,
hab es gerade mal mit

Delphi-Quellcode:

  if OpenDialog1.Execute then
    begin
      ico := TIcon.Create;
      ico.Handle := ExtractIcon(Application.Handle, PChar(OpenDialog1.FileName), 0);
    end;

Probiert und hatte keine Probleme. Versuch mal die Funktion. Sorry für den unschönen Code, hab nur gerade kein Lust es schön zu machen.

Gruß Der Unwissende

[mumu]

Zitat:

Nicht jedes Icon beinhaltet alle Größen. Bist du denn sicher, dass die anderen Größen überhaupt in den Icons vorhanden sind, mit denen du es ausprobierst?

ja auf jeden fall

Delphi-Quellcode:

ico := TIcon.Create; 
ico.Handle := ExtractIcon(Application.Handle, 'shell32.dll'), 0);

Es wird immer nur das 32x32 Icon ausgelesen. kann ja auch gar nicht angeben in welcher große ich das icon haben möchte. auch bei ExtractIconEx gehts net?!

wie kann ich das sonst hinbekommen?

[Der_Unwissende]

Sorry, hab natürlich dein Problem nur etwas falsch verstanden. Dachte du bekommst generell nur 16x16 oder 32x32 (dachte halt auch an die größeren 48x48 usw) und hab deshalb nicht gesehen, dass du mit ExtractIconEx, diese beiden Icons hast.

Na ja, dann musst du es so machen (sorry, wieder nicht all zu schön, könnte ein FreeHandle fehlen!)

Delphi-Quellcode:

var ico : TIcon;
    i : Integer;
    iconCount : HICON;
begin
  ico := TIcon.Create;
  iconCount := 0; 
  if OpenDialog1.Execute then
    begin
      ico := TIcon.Create;
      // auslesen der Anzahl der vorhandenen Icons (durch -1 und (iconCount = 0)
      iconCount := ExtractIconEx(PChar(OpenDialog1.FileName), -1, iconCount, iconCount, 0);

      // alle Icons durchschauen
      // eventuell auch Speicher wieder freigeben
      for i := 0 to iconCount - 1 do
        begin
          ico.Handle := ExtractIcon(Application.Handle, PChar(OpenDialog1.FileName), i);
          if ico.Width = ... then
            begin
            end; //
        end;
    end;

So sollte es gehen,
Gruß Der Unwissende

[Flocke]

Leider liefert dir ExtractIconEx nur die beiden Standardauflösungen, da hast du Recht.

Der Olli hat hier einen Ressourcen-Lister geschrieben. Wenn du den ausprobierst kannst du mal sehen, wie die Ressourcen in einer PE-Datei (EXE bzw. DLL) aufgebaut sind.

Wenn es sich um die Icons aus einer EXE oder DLL handelt, dann kannst du die mit
LoadLibraryEx(@filename[1], 0, LOAD_LIBRARY_AS_DATAFILE); laden und dann mit FindResource, LoadResource und LockResource daraus Ressourcen in den Speicher laden.

Eine RT_GROUP_ICON-Resource (davon gibt's eine für jedes Icon) hat den Aufbau eines TIconResource (s.u.), allerdings sind genau Header.idCount Einträge in dem Array (und nicht 100, aber du nimmst ja PIconResource):

Delphi-Quellcode:

type
  TIconDirHdr = packed record
    idReserved: word;
    idType: word;
    idCount: word;
  end;

  TIconResDirEntry = packed record
    bWidth: byte;
    bHeight: byte;
    bColorCount: byte;
    bReserved: byte;
    wPlanes: word;
    wBitCount: word;
    dwBytesInRes: longint;
    wIconIndex: word;
  end;

  PIconResource = ^TIconResource;
  TIconResource = packed record
    Header: TIconDirHdr;
    Entries: packed array [0 .. 99] of TIconResDirEntry;
  end;

Dabei bekommst du über Entries[n].bWidth und Entries[n].bHeight die Größe des Icons.

Die eigentlich Icons bekommst du dann über den Ressourcen-Typ RT_ICON und dem Namen MAKEINTRESOURCE(Entries[n].wIconIndex). Mit der Funktion CreateIconFromResourceEx kannst du dir aus so einer Ressource direkt ein Icon-Handle erzeugen lassen.

Wenn es sich um ICO-Dateien handelt, dann schreibe das hier noch einmal - dafür hab' ich ein wenig Code fertig.

[mumu]

klasse Flocke

vielen Dank hat wunderbar funktioniert.

Mir ist blos folgendes beim Auslesen aus der Shell32.dll aufgefallen:

Wenn ich mit ExtractIconEx ein Icon auslese, dann muss ich da ja die nummer des icons in der datei angeben.

Bei FindResource muss ich hingegen bei name einen internen bezeichner angeben. dieser ist jedoch unterschiedlich zur nummer von extractIconEx.

Hab mir nämlich mit ResourceHacker mal die Shell32.dll angesehen.

Bei ExtractIconEx muss man die Stelle angeben, an der sich das Icon befindet.
Bei FindResource hingegen die Bezeichnung der Resource.

Diese können durchaus unterschiedlich sein.

So schaut das beispielsweise aus:

Code:

FindResource   ExtractIconEx
1              0
2              1
3              2
4              3
10             4
11             5
105            6
110            7

mich interessiert jetzt, wie ich das so wie bei ExtractIconEx machen könnte und diese nummer übergeben.

es geht zwar mit den EnumResourceNamesA und einer Zählvariablen. Die bei jedem gefundenen icon um 1 erhöht wird. sobald dann der zähler auf der gewünschten Icon-Nummer ist, wird dieses Icon zurückgegeben. aber das ist doch weng umständlich?! geht das auch anders?

[Flocke]

Intern macht MS sich das natürlich einfacher und benutzt den Index bei ExtractIconEx direkt als Index in das Ressourcen-Verzeichnis.

Du musst doch auch die Library in den Speicher laden, und das wirst du ja (hoffentlich) auch nicht jedesmal aufs neue tun - da kannst du dir doch eine Routine schreiben, die eine TStringList mit den Namen der Icons füllt und dann immer wieder diese benutzen.

[mumu]

doch ich lad sie immer von neuem

stimmt, das mit der stringlist ist natürlich perfekt...

einmal komplett durchlaufen lassen und dann hab ich ja immer direkt zugriff.

vielen dank !!!