关于shockwaveflash的问题(50分)

H

hill007007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-28

• #1

我在应用程序的主界面上想放一个flash，shockwaveflash的movie中，
我填写了.swf文件的绝对路径。这样的话，当我把这个程序拷到其他地方时，就不能显示flash
请问怎么能够使我在任何地方打开程序时都能播放flash？

 

阿

阿当

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #2

可以把这个swf文件编译到可执行程序中.

 

H

hill007007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #3

就是不知道怎么编译 能说一下吗？

程序运行就播放

 

3

3cs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #4

你可以这样：
　　用文件流的形式进行
　　A.swf+B.EXE=C.EXE
播放时用
　　C.EXE-a.swf=B.EXE
运行B.EXE调用S.swf即可。

 

L

lps

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-29

• #5

应该把flash和程序放在一个位置，运行时取exe文件的路径

 

W

wzca

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #6

把flash 和你的程序放在同一目录里
allPath := ExtractFilePath(Application.ExeName) + Flash.swf
这样应该可以吧

 

H

hill007007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #7

procedure TForm2.FormCreate(Sender: TObject);
begin

shockwaveflash1.Movie:=ExtractFilePath(Application.ExeName) + '3.swf';
shockwaveflash1.Play;
end;

这样子就行了 谢谢楼上