首先，你的機器里要裝有Flash播放軟件（你的IE能顯示Flash）。IE之所以能顯示Flash是安裝了
由Macromedia公司提供的swflash.ocx控件，我們可以在Win98的$Windows/System/Macromed /Flash中
或在Win2000中的$Winnt/System32/ Macromed/Flash中找到它。ActiveX控件在Windows里是通用的，
Delphi也同樣支持。

首先，你的機器里要裝有Flash播放軟件（你的IE能顯示Flash）。IE之所以能顯示Flash是安裝了
由Macromedia公司提供的swflash.ocx控件，我們可以在Win98的$Windows/System/Macromed /Flash中
或在Win2000中的$Winnt/System32/ Macromed/Flash中找到它。ActiveX控件在Windows里是通用的，
Delphi也同樣支持。

運行Delphi后，選擇選單Component→Import ActiveX Control，找到SWFlash.OCX 文件進行安裝。
安裝完成后，ActiveX面板里出現TShockwaveFlash控件，這是Delphi對SWFlash.OCX的封裝，現在我們
就可以用這個控件來播放Flash了。拖一個Flash過來，放在Form上，指定其Movie屬性為d:/test.SWF，
并按F9鍵加以運行即可。怎么樣，運行效果不錯吧？下面，筆者將具體介紹TShockwaveFlash主要屬性、
方法和事件，以便于讀者開發。

TShockwaveFlash主要屬性如下：

ReadyState：讀一個flash文件時的狀態，其中包括0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete；
TotalFrames：總幀數，只有當ReadyState = 4時才能訪問該屬性；
FrameNum：當前播放的幀；
Playing：播放或暫停一個flash；
Quality：指定當前渲染的質量，包括0=Low, 1=High、2=AutoLow、3=AutoHigh；
ScaleMode：縮放模式，0=ShowAll、1= NoBorder、2 = ExactFit；
AlignMode：對齊模式，Left=+1、Right=+2、Top=+4、Bottom=+8；
BackgroundColor：背景色，-1為默認顏色；
Loop：是否循環；
Movie：指定播放的flash文件路徑，可以為一個URL。

TShockwaveFlash主要方法如下：

Play()：開始播放動畫；
Stop()；停止播放動畫；
Back()；播放前一幀動畫；
Forward()：播放后一幀動畫；
Rewind()：播放第一幀動畫；
SetZoomRect(int left, int top, int right, int bottom)：設置縮放的區域；
Zoom(int percent)：按百分比縮放；
Pan(int x, int y, int mode)：縮放播放面板，其中模式0為按像數、1為按窗口百分比。

TShockwaveFlash主要事件如下：

OnPRogress(int percent)：讀取一個flash時觸發；
OnReadyStateChange(int state)：狀態改變時觸發。states的值可以為0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete。