Image aus TImage als Icon in einer TImageList

[delphinia]

ok anders ich versuche mal zu erklären was ich eigentlich Vorhabe!

Ich scanne das System32 Verzeichnis nach EXE udn DLLs - bez. nach deren Icons.
Diese werden dann in einer ListView angezeigt soweit so gut.

Nun damit ich nicht immer wieder neuscannen muss, habe ich mich für die Komponente JvImageList entschieden da diese ihren Inhalt in einer Datei speichern kann!

Wo wir nun beim Problem sind

ich muss aufgrund der Schwärzenrändern um den Icons diesen Code * benutzten

Nun leider ist es so das wenn ich das nutzte die Icons die gespeichert werden unbrauchbar sind - beim laden sehe ich keine Icons. erst wenn ich den Code deaktiviere funktioniert das so wie ich es haben will nur leider mit "hässlichen " Icons.

Daher dachte ich, gehe ich einen Umweg über eine TImage und einer 2ten JvImageList die nicht vom Code aus der OnCreate beeinflusst wurde.
Leider war dies auch nicht möglich auch bei dem "Umweg" sind die Icons nicht da ;(

Hoffe ich habe mein Problem "gut" beschrieben und jemand kann mir nun dadurch besser helfen

Danke Euch für Eure Mühen...
Gruss Doreen


*

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  SHFileInfo: TSHFileInfo;
  SysIcons: THandle;
begin

  try
    SysIcons := SHGetFileInfo(PChar(copy(ParamStr(0), 1, 3)), 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_SYSICONINDEX OR SHGFI_LARGEICON);
  finally
    DestroyIcon(SHFileInfo.hIcon);
  end;
  JvImageList1.Handle := SysIcons;
end;

[edit=sakura] Push-Beitrag entfernt. Bitte mind. 24 Stunden warten. Mfg, sakura[/edit]