如何把资源中的文件写入磁盘

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);