Listar bmps de uma dlls

Listar bmps de uma dlls

Postby kbelo » Thu Aug 09, 2007 12:13 pm

Pessoal é possivel fazer uma lista dos Bmp de uma dll?´
se possivel posso imprimir esses bmps tambem?
Marcelo Michels Alexandre
xHarbour 1.1 + Ws + Xmate + FW8.01 + BCC 5.82
kbelo
 
Posts: 34
Joined: Thu Jun 22, 2006 2:33 pm
Location: Criciuma-SC Brasil

Postby Antonio Linares » Thu Aug 09, 2007 1:31 pm

Marcelo,

Te refieres a hacerlo en tiempo de ejecución, desde tu aplicación ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41947
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby kbelo » Thu Aug 09, 2007 2:00 pm

Sim em tempo de execução.
Marcelo Michels Alexandre
xHarbour 1.1 + Ws + Xmate + FW8.01 + BCC 5.82
kbelo
 
Posts: 34
Joined: Thu Jun 22, 2006 2:33 pm
Location: Criciuma-SC Brasil

Postby RenOmaS » Thu Aug 09, 2007 5:24 pm

Voce pode experimentar :

Code: Select all  Expand view
........
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
User avatar
RenOmaS
 
Posts: 205
Joined: Fri Oct 07, 2005 5:07 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 81 guests