Пишем свою оболочку для FP под Windows. Шаг 1.

Код AS3:

package 
{
	import flash.display.Sprite;
 
	public class Main extends Sprite 
	{		
		public function Main():void 
		{
			// TODO: create UI here
			// цикл прокачки сообщений – нативная сторона плеера
		}
 
	}
}

Код AS3:

#include "windows.h"
 
int APIENTRY wWinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPTSTR    lpCmdLine,
                     int       nCmdShow)
{
	// TODO: create UI here
	MSG msg;
	while (GetMessage(&msg, NULL, 0, 0))
	{
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}
	return (int) msg.wParam;
}

Код AS3:

#include "windows.h"
#include "myflash.h"
 
int APIENTRY wWinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPTSTR    lpCmdLine,
                     int       nCmdShow)
{
	MSG msg;
	MyFlash*  flashWnd  = new MyFlash();// MyFlash – наследник CFlashWnd
	while (GetMessage(&msg, NULL, 0, 0))
	{
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}
	return (int) msg.wParam;
}

Код AS3:

// определяем типы будущих указателей на функции
typedef BOOL	(	WINAPI	*LPAtlAxWinInit		 )();
typedef HRESULT (	WINAPI	*LPAtlAxAttachControl)(IUnknown* pControl, HWND hWnd, IUnknown** ppUnkContainer);
...
// грузим ATL 
HMODULE hModule = ::LoadLibrary(L"atl");
LPAtlAxWinInit pAtlAxWinInit    = (LPAtlAxWinInit)::GetProcAddress(hModule,"AtlAxWinInit");
// Инициализация либы
pAtlAxWinInit();
// создали окно класса  AtlAxWin
HWND hWndHost = ::CreateWindow(L"AtlAxWin", lpWindowName, dwStyle, x, y, nWidth, nHeight, hWndParent, hMenu, hInst, lpParam);
..
// тут мы создаем экземпляр плеера под именем flash
..
// аттачим контрол на окно.
LPAtlAxAttachControl pAtlAxAttachControl = (LPAtlAxAttachControl)::GetProcAddress(hModule,"AtlAxAttachControl");
HRESULT hr = pAtlAxAttachControl(flash,hWndHost,NULL);
// Все.

Код AS3:

#import  "PROGID:ShockwaveFlash.ShockwaveFlash" named_guids no_namespace raw_interfaces_only no_auto_exclude rename("IServiceProvider","IServiceProvider2")

Код AS3:

#import  “c:\\WINDOWS\\system32\\Macromed\\Flash\\Flash10h.ocx” named_guids no_namespace raw_interfaces_only no_auto_exclude rename("IServiceProvider","IServiceProvider2")

Код AS3:

IShockwaveFlash* flash = NULL;
::CoInitialize(NULL);
::CoCreateInstance(CLSID_ShockwaveFlash, 0, CLSCTX_ALL, __uuidof(IShockwaveFlash), (void **)&flash);

Код AS3:

// загружаем мувик
flash->put_Movie(L”movieFileName.swf”);

Код AS3:

#pragma once
#include "windows.h"
#include "resource.h"
#import  "PROGID:ShockwaveFlash.ShockwaveFlash" named_guids no_namespace raw_interfaces_only no_auto_exclude rename("IServiceProvider","IServiceProvider2")
#include "winver.h"
#pragma comment(lib,"Version.lib")
 
//definitions
#define FLHOSTWINDOW_CLASS	L"AtlAxWin"
#define FLPROG_ID			L"ShockwaveFlash.ShockwaveFlash"
#define FLCLASS_ID		L"{D27CDB6E-AE6D-11cf-96B8-444553540000}"
#define FLTYPELIB_ID		L"{D27CDB6B-AE6D-11cf-96B8-444553540000}"
#define FLWINDOW_CLASS		L"MacromediaFlashPlayerActiveX"
 
 
//typedefs
typedef BOOL(WINAPI*LPAtlAxWinInit)();
typedef HRESULT(WINAPI	*LPAtlAxAttachControl)(IUnknown* pControl, HWND hWnd, IUnknown** ppUnkContainer);
 
class CFlashWnd
{
	protected:
	HWND						hWndHost;
	BOOL						isAttached;
	BOOL						isInit;
	BOOL						isMovieLoaded;
	static HINSTANCE hInst;
private:
	IShockwaveFlash*			flash;
	static ATOM				RegisterHostWindowClass ();
	static LRESULT CALLBACK		HostWndProc	(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam);
	static INT_PTR CALLBACK		DlgProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam);
public:
	CFlashWnd(void);
	~CFlashWnd(void);
	// main window control interface
	DWORD dwThreadId;
	HWND hwndParent;
	HWND CreateHostWindow (
					LPCWSTR lpWindowName = NULL,
					DWORD dwStyle = WS_OVERLAPPEDWINDOW,
					int nCmdShow = SW_SHOWNORMAL,
					int x = CW_USEDEFAULT,
					int y = 0,
					int nWidth = CW_USEDEFAULT,
					int nHeight = 0,
					HWND hWndParent = NULL,
					HMENU hMenu = NULL,
					LPVOID lpParam = NULL
					);
	int		SetWindowSize(int cx, int cy);
	int		CenterWindow();
	HWND		GetHostWindow();
	BOOL		SetWindowText(WCHAR* str);
	BOOL		MessageBox	(WCHAR* text, WCHAR* title);
	BOOL		Destroy();
	IUnknown*	GetControl();
	HRESULT	AttachControl();
	// Flash Control Init
	static HRESULT GetInstallVersion(WCHAR* ver);
	HRESULT CreateInstance();
	// common 
	HRESULT LoadMovie(WCHAR* szFileName);
	HRESULT SetWMODE(WCHAR* str);
	HRESULT SetSALIGN(WCHAR* str);
	HRESULT SetALIGNMODE(int mode);
	HRESULT SetSCALEMODE(int mode);
 
	//static CONSTANTS
			//ScaleMode values:
	static const int		SCALEMODE_SHOWALL ;	//0
	static const int		SCALEMODE_NOBORDER;	//1
	static const int		SCALEMODE_EXACTFIT;	//2
	static const int		SCALEMODE_NOSCALE ;	//3
			//AlignMode values:
	static const int		ALIGN_C;			//0(default)
	static const int		ALIGN_L;			//1
	static const int		ALIGN_R;			//2
	static const int		ALIGN_T;			//4
	static const int		ALIGN_B;			//8
			//SAlign values:
	static const LPOLESTR	SALIGN_L ;			//"L"
	static const LPOLESTR	SALIGN_T ;			//"T"
	static const LPOLESTR	SALIGN_R ;			//"R"
	static const LPOLESTR	SALIGN_B ;			//"B"
	static const LPOLESTR	SALIGN_TL;			//"TL"
	static const LPOLESTR	SALIGN_TR;			//"TL"
	static const LPOLESTR	SALIGN_BL;			//"BL"
	static const LPOLESTR	SALIGN_BR;			//"BR"
			//WMode values:
	static const LPOLESTR	WMODE_TRANSPARENT;	//"transparent"
	static const LPOLESTR	WMODE_OPAQUE;		//"opaque"
	static const LPOLESTR	WMODE_WINDOW;		//"window"
 
};

Код AS3:

::SetWindowLongPtr(hWndHost,GWL_USERDATA,(int)this);

Код AS3:

CFlashWnd* f=(CFlashWnd*)GetWindowLongPtr(hWnd,GWL_USERDATA);

Код AS3:

#include <windows.h>
#include "test.h"
#include "MyFlash.h"
 
int APIENTRY wWinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPTSTR    lpCmdLine,
                     int       nCmdShow)
{
	MSG msg;
	HACCEL hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_TEST));
	CoInitialize(NULL);
	MyFlash* flashWnd = new MyFlash();
	while (GetMessage(&msg, NULL, 0, 0))
	{
		if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg))
		{
			TranslateMessage(&msg);
			DispatchMessage(&msg);
		}
	}
	CoUninitialize();
	return (int) msg.wParam;
}

Код AS3:

//.h
#pragma once
#include "FlashWnd.h"
 
class MyFlash :
	public CFlashWnd
{
private:
	void init();
public:
	MyFlash(void){ init();};
	~MyFlash(void){};
 
};
//.cpp
#include "MyFlash.h"
 
void MyFlash::init()
{
	WCHAR ver[16]={0};
	GetInstallVersion(ver);	
	CreateHostWindow();
	SetWindowSize(550,600);
	CenterWindow();
	SetWindowText(ver);	
	CreateInstance();
	AttachControl();
 
	WCHAR buf[MAX_PATH]={0};
	::GetCurrentDirectory(MAX_PATH,buf);
      lstrcat(buf,L"\\..\\common\\movie.swf");
	LoadMovie(buf);
}