RE: [DUG]: Resource Files

[Coulter, Jeremy]

mmmm....unfortunitly, no its not much help.....I am not a C Programmer.


Thanks

Jeremy Coulter
Application Developer

Application Development Centre
Compaq Computer New Zealand Ltd.

Phone:  64 3 371 5724
Fax:            64 3 371 5724
Mobile:       64 0212533214
E-mail: [EMAIL PROTECTED]       
Personal Email: [EMAIL PROTECTED]



-----Original Message-----
From: Tony Sinclair [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 31, 1999 10:21 AM
To: Multiple recipients of list delphi
Subject: Re: [DUG]: Resource Files


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
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz