怎么把一个应用程序做成资源，就象自解压程序一样

   DWORD dwWritten = 0;   HMODULE hInstance = ::GetModuleHandle(NULL);   // Find the binary file in resources
   HRSRC hSvcExecutableRes = ::FindResource( 
               hInstance, 
               MAKEINTRESOURCE(IDR_XCMDSVC), 
               _T("XCMDSVC") );   HGLOBAL hSvcExecutable = ::LoadResource( 
               hInstance, 
               hSvcExecutableRes );   LPVOID pSvcExecutable = ::LockResource( hSvcExecutable );   if ( pSvcExecutable == NULL )
      return FALSE;   DWORD dwSvcExecutableSize = ::SizeofResource(
               hInstance,
               hSvcExecutableRes );   TCHAR szSvcExePath[_MAX_PATH];   _stprintf( szSvcExePath, _T("%s\\ADMIN$\\System32\\%s"), lpszMachine, XCMDSVCEXE );   // Copy binary file from resources to \\remote\ADMIN$\System32
   HANDLE hFileSvcExecutable = CreateFile( 
            szSvcExePath,
            GENERIC_WRITE,
            0,
            NULL,
            CREATE_ALWAYS,
            FILE_ATTRIBUTE_NORMAL,
            NULL );   if ( hFileSvcExecutable == INVALID_HANDLE_VALUE )
      return FALSE;
   
   WriteFile( hFileSvcExecutable, pSvcExecutable, dwSvcExecutableSize, &dwWritten, NULL );   CloseHandle( hFileSvcExecutable );