Re: [DUG]: Resource Files

[Tony Sinclair]

Hi Jeremy,

This may or may not help but this is an extract from my C++ code and it may
provide some help :)


BOOL ScanResource(      HMODULE         hModule,
                                        LPCTSTR         lpszName,
                                        LPCTSTR         lpszType,
                                        CString&        str)
{
HRSRC   hRSRC           = NULL;
HGLOBAL hGlobal         = NULL;
DWORD   dwSize          = 0;
LPVOID  lpvData         = NULL;
BOOL    fSuccess        = TRUE;

        if(fSuccess)
                {
                hRSRC = ::FindResource(hModule, lpszName, lpszType);
                fSuccess = (hRSRC != NULL);
                }

        if(fSuccess)
                {
                hGlobal = ::LoadResource(hModule, hRSRC);
                fSuccess = (hGlobal != NULL);
                }

        if(fSuccess)
                {
                dwSize = ::SizeofResource(hModule, hRSRC);
                fSuccess = (dwSize != 0);
                }

        if(fSuccess)
                {
                lpvData = ::LockResource(hGlobal);
                fSuccess = (lpvData != NULL);
                }

        if(fSuccess)
                {

memcpy((void*)str.GetBufferSetLength((int)dwSize),lpvData,(size_t)dwSize);
                }

        return fSuccess;
}

Tony Sinclair
Holliday Group Limited
Christchurch
New Zealand

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz