FiveTech Support Forums

........
aBitMaps := EnumResourcesBitMap()
................



#pragma BEGINDUMP

#include <WinTen.h>
#include <windows.h>
#include <CommDlg.h>
#include <ClipApi.h>

static far int nResourceIndex = 0;
static far BOOL bGetName = FALSE;

static int CALLBACK EnumResourceFunc( HANDLE hModule, // resource-module handle
                                      LPCTSTR lpszType,  // pointer to resource type
                                      LPTSTR lpszName,   // pointer to resource name
                                      LONG lParam  // application-defined parameter
                                      )
{
  #ifdef __XPP__
     void * params = _params;
  #endif

  ++nResourceIndex;
  if ( bGetName )
     _storc( lpszName, -1, nResourceIndex );
  return 1;
}

HB_FUNC( ENUMRESOURCESBITMAP )
{
  ENUMRESNAMEPROC  lpEnumResourceFunc = ( ENUMRESNAMEPROC  )
      MakeProcInstance( ( FARPROC ) EnumResourceFunc, GetInstance() );

  // Get the number of recurs bitmap
  nResourceIndex = 0;
  bGetName = FALSE;
  EnumResourceNames( NULL, RT_BITMAP, lpEnumResourceFunc, NULL );

  // Get the recurso bitmap names
  _reta( nResourceIndex );
  nResourceIndex = 0;
  bGetName = TRUE;
  EnumResourceNames( NULL, RT_BITMAP, lpEnumResourceFunc, NULL );

  FreeProcInstance( ( FARPROC ) EnumResourceFunc );
}

#pragma ENDDUMP