用delphi轻松实现背景播放.txt

用 Delphi 轻松实现背景播放

　　Delphi的VCL封装得很好，使用起来很方便，但在计算机世界中并没有完美的程序，本文介绍通过修改TMediaPlay代码实现在任意窗口播放 
　　
　　TMediaPlay中有一个Display属性，它是TWinControl类型，TWinControl是第一个拥有窗口句柄(Handle)的VCL类，TMediaPlay就是利用这个Handle所Handle的窗口区域播放。 如果我们把Handle指向桌面，哪TMediaPlay将会在桌面播放。与TCanvas不同的是，TWinControl的Handle的属性是只读的，并且GetHandle方法是静态方法，这说明，我们要Handle指向桌面只有两种方法
　　
　　修改TWinControl，让Handle可写。 
　　建立TWinControl子类，并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。 
　　 其中第二种方法比较好.
　　
　　TSurpriseDisplay=class(TWinControl)
　　protected
　　function GetHandle:HWnd;virtual;
　　public
　　property 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 );
　　var
　　AWindowParm: TMCI_Anim_Window_Parms;
　　begin
　　 if (Value <> nil) and MCIOpened and FHasVideo then
　　 begin
　　 FFlags := 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 );
　　var
　　AWindowParm: TMCI_Anim_Window_Parms;
　　wnd:HWND;
　　begin
　　if (Value <> nil) and MCIOpened and FHasVideo then
　　begin
　　FFlags := mci_Wait or mci_Anim_Window_hWnd;
　　//************************************************************
　　if Value is TSurpriseDisplay then
　　wnd:=TSurpriseDisplay(Value).Handle
　　else
　　wnd:=Value.Handle;
　　//************************************************************
　　AWindowParm.Wnd := Longint(wnd); 
　　
　　............
　　
　　end;
　　
　　虽然这种修改并不优美，但能最大限度地保证兼容。别一种修改方法是把TMediaPlay.Display改成TSurpriseDisplay类型，这样可以保证安全。
　　
　　
　　使用方法：
　　
　　使用桌面播放 
　　只要在GetHandle中返回桌面句柄,并赋值给Display.
　　
　　function TSurpriseDisplay.GetHandle:HWnd;
　　begin
　　Result:=GetDesktopWindow;
　　end;
　　
　　mp.Display:=TSurpriseDisplay.Create(self);
　　
　　用记事本播放 
　　记得我在TSurpriseDisplay的GetHandle中声明为virtual吗，现在开始发挥它的威力了，写一个类继承自TSurpriseDisplay,覆盖GetHandle方法，返回记事本句柄。
　　
　　TNotepadDisplay=class(TSurpriseDisplay)
　　private
　　wnd:Hwnd;
　　protected
　　function GetHandle:HWnd;override;
　　end;
　　
　　function TNotepadDisplay.GetHandle:HWnd;
　　begin
　　if wnd=0 then
　　begin
　　Winexec('notepad.exe',1);
　　wnd:=FindWindow('Notepad','无标题 - 记事本');
　　end;
　　result:=wnd;
　　end;
　　
　　mp.Display:=TNotepadDisplay.Create(self);
　　
　　类似地还可以实现各种播放方式。