Hi,
keine Ahnung, ob es hilft, aber ich nutze die Methode aus ComCtrl:
Delphi-Quellcode:
function TFRMDlgHtmlMail.CheckIcon(const AFileName: string): Integer;
var
FileInfo : TSHFileInfo;
begin
Result := -1;
if SHGetFileInfo(PChar(AFilename), 0, FileInfo, SizeOf (FileInfo), SHGFI_ICON or SHGFI_SMALLICON) <> 0 then
begin
ImageList_AddIcon(ImageList.Handle, FileInfo.hIcon);
DestroyIcon(FileInfo.hIcon);
Result := ImageList.Count -1;
end;
end;
Damit kann man sich auch den Umweg über TIcon.Create sparen.
Hab nur Copy und Paste gemacht (nicht auf deine Namen angepasst...
Frank