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]