欢迎进来！不会有错

[ghz2000]

告诉大伙，一个好东东：SWFLASH.OCX
如果装过falsh的话，你可以在c:\windows\system\macromed\flash下找到他
然后在到
menu Component --> Import ActiveX Control至于如何用，我还要研究研究。

[ghz2000]

它可以在delphi用：
方法：如下刚刚研究出来：（哈哈）
1.首先你必须找到以下文件 C:\Windows\System\Macromed\Flash\SWFLASH.OCX
或者 C:\Windows\System32\Macromed\Flash\SWFLASH.OCX

2.然后再delphi中安装：Component --> Import ActiveX Control


3.这是最大的问题就是：如何使这个ocx组件，在别的程序中使用时还可以用。
解决的方法可以这样：
你可以在你的exe包含这个ocx的resource file。选取出需要的文件register 它
有这样的例子：
1.create a txt and write:
Flash RCDATA "SWFLASH.OCX"

将它另存为以rc为后缀的文件，这里我存为：FlashOCX.rc
注意的*.rc文件必须在和swflash.ocx在同一路径下。
open 你的 Dos Windows and write Br32 Dir of File\FlashOcx.rc
就是：brcc32 c:\Windows\system\FalseOcx.rc
这样它就可以生成一个res文件:flashocx.res
这时你就可以在程序中包含使用它了。
{$R *.RES}
{$R FLASHOCX.RES}

代码：

program Project1;

uses
Forms,comobj,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}
{$R FLASHOCX.RES}

begin
Application.Initialize;
try
Application.CreateForm(TForm1, Form1);
except
On EOleSysError Do
begin
Application.MessageBox('不能打开flash对象，你注册SWFLASH.OCX?','Open Error',0)
//Register OCX File because not found.
end;
end;
Application.Run;
end.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, ShockwaveFlashObjects_TLB;

type
TForm1 = class(TForm)
ShockwaveFlash1: TShockwaveFlash;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
ShockwaveFlash1.Movie:='e:\downloads\flashmovies\12.swf';（换成你的文件）
ShockwaveFlash1.Zoom(200);
ShockwaveFlash1.Play;
end;

end.

试一试吧，很好玩的！

[lbsoft]

我老早就玩过了，总觉的大才小用。;-)

[ghz2000]

murphy(豆豆)　
你也不推荐几个？妈的

[wanwangzhiwang]

是不是病毒？我好怕怕！

[guoyhcs]

是什么好东西？

[Kingron]

就是一个Flash 的控件了，即使没有安装Flash，只要是Win98+IE5，默认就会有的。只不过名字是ShockWave Flash控件罢了。

[rh]

可以显示flash动画，真的很不错

[murphy]

还有好多OCX可以用呢！

[murphy]

kao!网上的OCX好用得多的是！我这有的随便拿出一两个，就够眩死你！