type 
TFormProg = class(TForm) 
private 
FFlash:TShockwaveFlash;//需要动态创建. 
FFlashMes:TWndMethod;//保存Flash控件原来的WindowProc事件句柄 
protected 
procedure FlashMes(var Message: TMessage); 
{ Private declarations } 
public 
end; 
var 
FormProg: TFormProg; 

implementation 

procedure TFormProg.FlashMes(var Message: TMessage); 
begin 
if (Message.Msg=WM_RBUTTONDOWN) then 
//如果是右键按下:Flash控件就是在鼠标按下的消息里弹出菜单的. 
begin 
FFlash.Perform(WM_RBUTTONUP,Message.WParam,Message.LParam); 
//直接传递给Flash控件鼠标弹起的消息. 
Exit; 
//并退出本过程,而不调用原来的事件句柄,即不再让Flash控件处理鼠标按下的消息, 
//这样就不会弹出菜单了. 
end; 
//关闭右键消息，不传递给Flash控件处理。这样就不会弹出右键菜单。 
FFlashMes(Message); 
//让原理的事件句柄处理其他的消息. 
end; 
procedure TFormProg.FormCreate(Sender: TObject); 
begin 
FFlash:=TShockwaveFlash.Create(Self);//构造Flash控件的实例. 
FFlash.Parent:=Self;//在本窗口播放. 
FFlashMes:=FFlash.WindowProc; 
FFlash.WindowProc:=FlashMes;// WindowProc; 
FFlash.Align:=alClient;//整个窗口作为播放区域. 
FFlash.Movie:=ExtractFilePath(Application.ExeName)+'log-ok.swf';//播放的文件. 
FFlash.Menu:=False;//不显示菜单. 
FFlash.Loop:=False;//不循环,由本程序自己来控制循环. 
end;