Witam, posiadam ścieżkę aplikacji i chciałbym wczytać jej ikonę próbuję tą procedurą jednak nie działa dla wszystkich aplikacji
var FileHandle : THandle;
H : HIcon;
Icon : TIcon;
begin
FileHandle := LoadLibraryEx(PChar(listbox1.items[listbox1.itemindex]),
0,LOAD_LIBRARY_AS_DATAFILE);
Icon := TIcon.create;
try
H := LoadImage(FileHandle,'MAINICON',IMAGE_ICON,32,32,0);
Icon.Handle := H;
if H > 0 then
begin
Canvas.Draw(48,48,Icon);
end;
finally
Icon.Free;
end;
end;