M mdc Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-05 #2 这个你需要先装上能播放flash的ocx.然后引用 var flash1:TShockWaveFlash;(类名你自己看一下） flash1:=TShockWaveFlash.create(nil);flash1.movie:=文件名; flash1.play;
这个你需要先装上能播放flash的ocx.然后引用 var flash1:TShockWaveFlash;(类名你自己看一下） flash1:=TShockWaveFlash.create(nil);flash1.movie:=文件名; flash1.play;
X xusong168 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-05 #3 var ShockwaveFlash2: TShockwaveFlash; // 声明变量 begin ShockwaveFlash2:= TShockwaveFlash.CreateParented(GetDesktopWindow()); ShockwaveFlash2.LoadMovie(0,'c:/top.swf'); ShockwaveFlash2.Play(); end;
var ShockwaveFlash2: TShockwaveFlash; // 声明变量 begin ShockwaveFlash2:= TShockwaveFlash.CreateParented(GetDesktopWindow()); ShockwaveFlash2.LoadMovie(0,'c:/top.swf'); ShockwaveFlash2.Play(); end;
风 风云再起 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-06 #4 其实你们说的方法我都试过，但就是不行 直接加入ocx控件又可以，不知道怎么搞的 知道的话，发一份原码给我 tianherang@etang.com
W wsqyc Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-17 #5 Var FF:TShockwaveFlash; begin FF:=TShockwaveFlash.Create(self); FF.Parent:=Form1; FF.Movie:='E:/下载的文件/电影/dhxy/01.swf';//必须全路经 Ff.Play; end;
Var FF:TShockwaveFlash; begin FF:=TShockwaveFlash.Create(self); FF.Parent:=Form1; FF.Movie:='E:/下载的文件/电影/dhxy/01.swf';//必须全路经 Ff.Play; end;
