L
lwslws0208
Unregistered / Unconfirmed
GUEST, unregistred user!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, jpeg, ExtCtrls, MPlayer;
type
Tform1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
MediaPlayer1: TMediaPlayer;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
form1: Tform1;
implementation
{$R *.DFM}
procedure Tform1.Button1Click(Sender: TObject);
begin
//退出系统
CLOSE
end;
procedure Tform1.FormActivate(Sender: TObject);
begin
mediaplayer1.FileName:=ExtractFilePath(ParamStr(0))+'lws/03.avi';//这不行????
mediaplayer1.Open;
mediaplayer1.Play;
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, jpeg, ExtCtrls, MPlayer;
type
Tform1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
MediaPlayer1: TMediaPlayer;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
form1: Tform1;
implementation
{$R *.DFM}
procedure Tform1.Button1Click(Sender: TObject);
begin
//退出系统
CLOSE
end;
procedure Tform1.FormActivate(Sender: TObject);
begin
mediaplayer1.FileName:=ExtractFilePath(ParamStr(0))+'lws/03.avi';//这不行????
mediaplayer1.Open;
mediaplayer1.Play;
end;
end.