Код:
var
hResLoad, hRes: HRSRC;
hExe, hUpdateRes: THandle;
lpResLock: PChar;
begin
hExe:=LoadLibrary(PChar('c:\notepad.exe'));
hRes := FindResource(hExe, MakeIntResource(1), RT_GROUP_ICON);
hResLoad := LoadResource(hExe, hRes);
lpResLock := LockResource(hResLoad);
Как прочитать ресурс? В нем должен содержатся текст со всеми иконками! Что то типа..
Цитата:
48x48 8-bit; Icon Entry Ord: 1
32x32 8-bit; Icon Entry Ord: 2
24x24 8-bit; Icon Entry Ord: 3
16x16 8-bit; Icon Entry Ord: 4
48x48 32-bit; Icon Entry Ord: 5
32x32 32-bit; Icon Entry Ord: 6
24x24 32-bit; Icon Entry Ord: 7
16x16 32-bit; Icon Entry Ord: 8
|