🚀 go-pugleaf

Mike Collins wrote:

>I'll stick a demo app on the .attachments group if you want to have a look.

Ok, in a nutshell, here it is (from the "Icons in Win32" link).
Filter your results on e->bWidth or height.

{
	String Filename = FileListBox->FileName;	// full path
	HMODULE hLib = LoadLibraryEx( Filename.c_str(), NULL, LOAD_LIBRARY_AS_DATAFILE );
	EnumResourceNames( hLib, RT_GROUP_ICON,
			(ENUMRESNAMEPROC)EnumNamesFunc, 0 );
	FreeLibrary( hLib );
}

BOOL EnumNamesFunc(
	HANDLE hModule,   // module handle
	LPCTSTR lpType,   // address of resource type
	LPTSTR lpName,    // address of resource name
	LONG lParam)      // extra parameter
{
	HRSRC hRsrc = FindResource( hModule, lpName, lpType );
	HGLOBAL hGroup = LoadResource( hModule, hRsrc );
	GRPICONDIR * lpGrpIconDir = (LPGRPICONDIR)LockResource( hGroup );
	for( int i=0; i < lpGrpIconDir->idCount; ++i )
	{
		int x = (i%7)*64;
		int y = (i/8)*64;

		GRPICONDIRENTRY * e = &lpGrpIconDir->idEntries[i];
		hRsrc = FindResource( hModule, MAKEINTRESOURCE( e->nID ), RT_ICON );
		HGLOBAL hGlobal = LoadResource( hModule, hRsrc );
		ICONIMAGE *lpIconImage = (LPICONIMAGE)LockResource( hGlobal );
		HICON hicon = CreateIconFromResourceEx(
						(PBYTE)lpIconImage,
						e->dwBytesInRes,
						TRUE,
						0x00030000,//DWORD dwVersion,
						e->bWidth,
						e->bHeight,
						0 );
		TIcon *icon = new TIcon;
		icon->Handle = hicon;
		Form2->Image1->Canvas->Draw( x, y, icon );
	};
	return TRUE;
}