uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form2.WindowState := wsMaximized;
Form2.MediaPlayer1.Notify := false;
Form2.MediaPlayer1.Display := Form2.Panel1;
Form2.MediaPlayer1.FileName := ‘C:/TheWall/DELCAR2.AVI’;
Form2.MediaPlayer1.Open;
http://www.gaodaima.com/?p=65872实现avi全屏播放_Delphi
Form2.MediaPlayer1.DisplayRect := Form2.ClientRect;
Form2.MediaPlayer1.Play;
end;
{Code for Form 2}
procedure TForm2.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.NotifyValue = nvSuccessful then
Form2.Close;
end;
//////////////////////////////////////////////////////
public
{ Public-Deklarationen }
procedure MMNotify(var Message: TMessage); message MM_MCINOTIFY;
end;
var
Form1 : TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString(‘open j:/video.avi alias film’, nil, 0, 0);
mciSendString(‘window film handle 0’, nil, 0, 0);
mciSendString(‘window film state show maximized’, nil, 0, 0);
mciSendString(‘play film notify’, nil, 0, Form1.Handle);
end;
procedure TForm1.MMNotify(var Message: TMessage);
begin
mciSendString(‘close film’, nil, 0, 0);
end;
欢迎大家阅读《实现avi全屏播放_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码