HINSTANCE handle = ::AfxGetResourceHandle();
HRSRC hrsrc= FindResource(handle,MAKEINTRESOURCE(IDR_DLL),_T("DLL"));
DWORD nNumber,nSize = ::SizeofResource(handle,hrsrc);
HGLOBAL hData = LoadResource(handle,hrsrc);
LPVOID pv = LockResource(hData);
HANDLE hFile = CreateFile(strFile, GENERIC_WRITE,
0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
WriteFile(hFile, pv,nSize, &nNumber, NULL);
CloseHandle(hFile);
FreeResource(hData);