我用delphi制作fash播放器的时候不能运行,出现了一个这样的代码[
Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Project1.dpr(2): Read error on 'c:\program files\borland\delphi7\Lib\System.dcu'
那位大侠帮我一下
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, ExtCtrls, StdCtrls,
ComCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Timer1: TTimer;
OpenDialog1: TOpenDialog;
ShockwaveFlash1: TShockwaveFlash;
TrackBar1: TTrackBar;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
swf:widestring;
begin
if opendialog1.execute then
begin
swf:=opendialog1.filename;
shockwaveflash1.movie:=swf;
trackbar1.max:=shockwaveflash1.totalframes;
trackbar1.frequency:=trackbar.max div 10;
timer1.enabled:=true;
end;
end;
end.
Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Unable to build. License is invalid or has expired.
[Fatal Error] Project1.dpr(2): Read error on 'c:\program files\borland\delphi7\Lib\System.dcu'
那位大侠帮我一下
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, ExtCtrls, StdCtrls,
ComCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Timer1: TTimer;
OpenDialog1: TOpenDialog;
ShockwaveFlash1: TShockwaveFlash;
TrackBar1: TTrackBar;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
swf:widestring;
begin
if opendialog1.execute then
begin
swf:=opendialog1.filename;
shockwaveflash1.movie:=swf;
trackbar1.max:=shockwaveflash1.totalframes;
trackbar1.frequency:=trackbar.max div 10;
timer1.enabled:=true;
end;
end;
end.
解决方案 »
- USB接口的MODEM,打开串口后时间一超过五分钟左右应自己关闭了,是什么原因?
- stringgrid失去焦点时,第一行第一列为蓝色如何消除?
- 显示日期+时间的问题
- 我想编程得到进程的状态,怎么实现啊?
- 请教:如何把SQL SERVER中的某个数据库的所有表都清空?
- Delphi能否调用EJB等中间件?
- 有关combobox.items.add('name=value')的问题
- 自己开发控件,集合类型的属性的集合的子集如何随控件另一个属性的值改变?
- 模仿IE的地址输入框
- 如何让DELPHI中的多 窗口可以向WINDOWS中窗口一样可以互相切换?
- 菜鸟控件问题
- 返回字符串 : 由4位随机数和当前时间(time)组成 如2586101002
不能创建,证书证书无效或过期.是这个控件TShockwaveFlash没注册吧.