доброго времени суток подскажите метод как засунуть иконку в bitmap
получаю иконку папки и ума не приложу как ее преобразовать
var
infoFile:SHFILEINFO;
flag:Cardinal;
begin
try
flag:=SHGFI_ICON;
flag:=flag or SHGFI_SMALLICON;
ZeroMemory(Addr(infoFile),SizeOf(infoFile));
SHGetFileInfo('C:\',0,infoFile,SizeOf(infoFile),flag);
// infofile.hIcon (HICON) как присвоить его картинки
Image1.Bitmap :=