天国的光辉快来照耀我吧？

[Kylix_XP]

用MediaPlayer控件怎么样实现全屏？

[johnsonrao]

佛祖保右！

[cxx1997]

阿门

[xzhongjin]

哈哈我知道，这分我要了
贴程序吗？

[xzhongjin]

private
playmove:string;
procedure hideTaskbar;
procedure showTaskbar;
procedure WriteMciConfig;
procedure wmhotkey(var msg:tmessage);message wm_hotkey;
procedure allwindows;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses input;

const RSP_SIMPLE_SERVICE=1;

{$R *.dfm}

procedure tform1.allwindows;
begin
form1.left := 0; //Form 全屏
form1.Top := 0;
form1.Width := Screen.Width;
form1.Height := Screen.height;
end;
procedure tform1.hideTaskbar;
//隐藏
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
End;

procedure tform1.showTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
end;


procedure TForm1.FormCreate(Sender: TObject);
var
hwnd:Thandle;
begin

hwnd:=findwindow('shell_traywnd',nil); //得到任务栏句柄
showwindow(hwnd,sw_hide); //隐藏任务栏，showwindow(hwnd_show) 为显示end;
end;
procedure TForm1.WriteMciConfig;
begin
WritePrivateProfileString('mci extensions', 'mpg', 'MPEGVideo', 'win.ini');
WritePrivateProfileString('mci extensions', 'dat', 'MPEGVideo', 'win.ini');
WritePrivateProfileString('mci extensions', 'mpv', 'MPEGVideo', 'win.ini');
WritePrivateProfileString('mci extensions', 'mpeg', 'MPEGVideo', 'win.ini');
WritePrivateProfileString('mci extensions', 'cjt', 'MPEGVideo', 'win.ini');
WritePrivateProfileString('mci extensions', 'avi', 'AVIVideo', 'win.ini');
WritePrivateProfileString('mci','MPEGVideo', 'mciqtz.drv', 'system.ini');

end;
procedure TForm1.N1Click(Sender: TObject);
begin
self.WindowState:=wsnormal;
self.Width:=600;
self.Height:=380;
self.Position:= poScreenCenter;
self.Refresh;
end;
procedure TForm1.btnyesClick(Sender: TObject);
begin
TRY
panel1.Visible:=false;
MasPlayer1.Close;
masplayer1.FileName:=playmove;
table1.Locate('id',edit1.Text,[]);
playmove:=dbdir.Text;

masplayer1.DeviceType:= dtAutoSelect;
masplayer1.Display:= Form1;
masplayer1.Open;
masplayer1.DisplayRect:=Rect(0,0,1024,768);
masplayer1.Play;
edit1.Show;
except
showmessage('不能打开MCI设备！');
end;

[Kylix_XP]

对呀 ，请提供源程序！！

[xzhongjin]

有些多余的代码还没来的及删（为了抢分）。自己看吧

[Kylix_XP]

谢谢！！
非常感谢 。。

小弟刚从C++Builer 转到delphi的

[yuFei]

up

[sjtprruy]

如果是form界面播放，那么先把Panel1控件放入form,panel1的align属性：alclient,实现全屏播放:
begin
form.borderstyle :=bsnone;
form.windowState :=wsmaximized;
form.mediaPlayer.displayRect:=Rect(0,0,panel1.Width,panel1.Height);
end;
阿门,上帝保佑你......

[xzhongjin]

还没解决？

[xzhongjin]

还没解决？

[guanghui]

我叫光辉，可惜我不能照耀你！ ；-）
因为我不玩多媒体编程
__________________________________________
人生是条不归路
爱你
也没有退路