如何用程序实现在扩展的另外一个显示屏上播放视频文件。代码应该如何写？
如何用程序实现在扩展的另外一个显示屏上播放视频文件。代码应该如何写？有两个显示屏，A为计算机控制屏，B为室外大屏幕。程序实现在B的屏幕上顺序全屏播放视频文件，不影响A的正常使用。
[解决办法]
指定handle
[解决办法]
//判断显示器数量
for i := 0 to Screen.MonitorCount - 1 do begin
Item := TMenuItem.Create(PopupMenu1);
Item.Caption := Format('显示器%d-[%d*%d]', [i+1,Screen.Monitors[i].Width,Screen.Monitors[i].Height]);
Item.Tag := i;
Item.OnClick := MenuItemClick;
PopupMenu1.Items.Add(Item);
end;
//显示器在指定显示器上
procedure TFrmShowFerry.MenuItemClick(Sender: TObject);
begin
if TMenuItem(Sender).Tag = Monitor.MonitorNum then Exit;
if WindowState = wsMaximized then
begin
WindowState := wsNormal;
MakeFullyVisible(Screen.Monitors[TMenuItem(Sender).Tag]);
WindowState := wsMaximized;
end
else
MakeFullyVisible(Screen.Monitors[TMenuItem(Sender).Tag]);
end;
[解决办法]
播放视频都是在一个窗口上实现的, handle即句柄唯一标识窗口.
一般的播放都是play(nHandle: Thandle);
你new一个form在B显示器上, 然后play(form.handle)不是就可以了.
