用Delphi轻松实现背景播放

下载本文示例代码
天极IT资讯短信服务 电脑小技巧 function check4() { if (dn.mobile.value.length!=11) { alert("手机号码不正确!"); dn.mobile.focus(); return false; } return true; } 资费：包月5元 手机： 介绍：细处着手，巧处用功。高手和菜鸟之间的差别就是：高手什么都知道，菜鸟知道一些。电脑小技巧收集最新奇招高招，让你轻松踏上高手之路。(首月免费) 　　TMediaPlay中有一个Display属性，它是TWinControl类型，TWinControl是第一个拥有窗口句柄(Handle)的VCL类，TMediaPlay就是利用这个Handle所Handle的窗口区域播放。　　如果我们把Handle指向桌面，哪TMediaPlay将会在桌面播放。与TCanvas不同的是，TWinControl的Handle的属性是只读的，并且GetHandle方法是静态方法，这说明，我们要Handle指向桌面只有两种方法 　　修改TWinControl，让Handle可写。　　建立TWinControl子类，并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。 　　其中第二种方法比较好. TSurpriseDisplay=class(TWinControl)protectedfunction GetHandle:HWnd;virtual;publicproperty Handle: HWnd read GetHandle;end;　　其中GetHandle被定义为virtual，这样可以方便继承。因为这里只是隐藏了TWinControl.GetHandle方法，所以当把这个子类赋给TMediaPlay.Display时，它会被强制转换成父类，并调用其GetHandle方法，这样达不到我们的目的。所以我对TMediaPlay作了一点修改，增强其功能，修改后的TMediaPlay完全与原来的兼容.　　原代码: {setting a TWinControl to display video devices' output}procedure TMediaPlayer.SetDisplay( Value: TWinControl );varAWindowParm: TMCI_Anim_Window_Parms;beginif (Value <> nil) and MCIOpened and FHasVideo thenbeginFFlags := mci_Wait or mci_Anim_Window_hWnd;AWindowParm.Wnd := Longint(Value.Handle);................end;　　修改后 {setting a TWinControl to display video devices' output}procedure TMediaPlayer.SetDisplay( Value: TWinControl );varAWindowParm: TMCI_Anim_Window_Parms;wnd:HWND;beginif (Value <> nil) and MCIOpened and FHasVideo thenbeginFFlags := mci_Wait or mci_Anim_Window_hWnd;//************************************************************if Value is TSurpriseDisplay thenwnd:=TSurpriseDisplay(Value).Handleelsewnd:=Value.Handle;//************************************************************AWindowParm.Wnd := Longint(wnd); ............end;　　虽然这种修改并不优美，但能最大限度地保证兼容。别一种修改方法是把TMediaPlay.Display改成TSurpriseDisplay类型，这样可以保证安全。　　使用方法：　　使用桌面播放 　　只要在GetHandle中返回桌面句柄,并赋值给Display. function TSurpriseDisplay.GetHandle:HWnd;beginResult:=GetDesktopWindow;end;mp.Display:=TSurpriseDisplay.Create(self);　　用记事本播放 　　记得我在TSurpriseDisplay的GetHandle中声明为virtual吗，现在开始发挥它的威力了，写一个类继承自TSurpriseDisplay,覆盖GetHandle方法，返回记事本句柄。 TNotepadDisplay=class(TSurpriseDisplay)privatewnd:Hwnd;protectedfunction GetHandle:HWnd;override;end;function TNotepadDisplay.GetHandle:HWnd;beginif wnd=0 thenbeginWinexec('notepad.exe',1);wnd:=FindWindow('Notepad','无标题 - 记事本');end;result:=wnd;end;mp.Display:=TNotepadDisplay.Create(self);　　类似地还可以实现各种播放方式。 天极IT资讯短信服务 电脑小技巧 function check4() { if (dn.mobile.value.length!=11) { alert("手机号码不正确!"); dn.mobile.focus(); return false; } return true; } 资费：包月5元 手机： 介绍：细处着手，巧处用功。高手和菜鸟之间的差别就是：高手什么都知道，菜鸟知道一些。电脑小技巧收集最新奇招高招，让你轻松踏上高手之路。(首月免费) 　　TMediaPlay中有一个Display属性，它是TWinControl类型，TWinControl是第一个拥有窗口句柄(Handle)的VCL类，TMediaPlay就是利用这个Handle所Handle的窗口区域播放。　　如果我们把Handle指向桌面，哪TMediaPlay将会在桌面播放。与TCanvas不同的是，TWinControl的Handle的属性是只读的，并且GetHandle方法是静态方法，这说明，我们要Handle指向桌面只有两种方法 　　修改TWinControl，让Handle可写。　　建立TWinControl子类，并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。 　　其中第二种方法比较好. TSurpriseDisplay=class(TWinControl)protectedfunction GetHandle:HWnd;virtual;publicproperty Handle: HWnd read GetHandle;end;　　其中GetHandle被定义为virtual，这样可以方便继承。因为这里只是隐藏了TWinControl.GetHandle方法，所以当把这个子类赋给TMediaPlay.Display时，它会被强制转换成父类，并调用其GetHandle方法，这样达不到我们的目的。所以我对TMediaPlay作了一点修改，增强其功能，修改后的TMediaPlay完全与原来的兼容.　　原代码: {setting a TWinControl to display video devices' output}procedure TMediaPlayer.SetDisplay( Value: TWinControl );varAWindowParm: TMCI_Anim_Window_Parms;beginif (Value <> nil) and MCIOpened and FHasVideo thenbeginFFlags := mci_Wait or mci_Anim_Window_hWnd;AWindowParm.Wnd := Longint(Value.Handle);................end;　　修改后 {setting a TWinControl to display video devices' output}procedure TMediaPlayer.SetDisplay( Value: TWinControl );varAWindowParm: TMCI_Anim_Window_Parms;wnd:HWND;beginif (Value <> nil) and MCIOpened and FHasVideo thenbeginFFlags := mci_Wait or mci_Anim_Window_hWnd;//************************************************************if Value is TSurpriseDisplay thenwnd:=TSurpriseDisplay(Value).Handleelsewnd:=Value.Handle;//************************************************************AWindowParm.Wnd := Longint(wnd); ............end;　　虽然这种修改并不优美，但能最大限度地保证兼容。别一种修改方法是把TMediaPlay.Display改成TSurpriseDisplay类型，这样可以保证安全。　　使用方法：　　使用桌面播放 　　只要在GetHandle中返回桌面句柄,并赋值给Display. function TSurpriseDisplay.GetHandle:HWnd;beginResult:=GetDesktopWindow;end;mp.Display:=TSurpriseDisplay.Create(self);　　用记事本播放 　　记得我在TSurpriseDisplay的GetHandle中声明为virtual吗，现在开始发挥它的威力了，写一个类继承自TSurpriseDisplay,覆盖GetHandle方法，返回记事本句柄。 TNotepadDisplay=class(TSurpriseDisplay)privatewnd:Hwnd;protectedfunction GetHandle:HWnd;override;end;function TNotepadDisplay.GetHandle:HWnd;beginif wnd=0 thenbeginWinexec('notepad.exe',1);wnd:=FindWindow('Notepad','无标题 - 记事本');end;result:=wnd;end;mp.Display:=TNotepadDisplay.Create(self);　　类似地还可以实现各种播放方式。 下载本文示例代码


用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放用Delphi轻松实现背景播放