如何用程序实现在扩展的另外一个显示屏上播放视频文件。代码应该如何写？

Question

如何用程序实现在扩展的另外一个显示屏上播放视频文件。代码应该如何写？有两个显示屏，A为计算机控制屏，B为室外大屏幕。程序实现在B的屏幕上顺序全屏播放视频文件，不影响A的正常使用。

Answer 1

//判断显示器数量
  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;

Answer 2

播放视频都是在一个窗口上实现的, handle即句柄唯一标识窗口.一般的播放都是play(nHandle: Thandle);你new一个form在B显示器上, 然后play(form.handle)不是就可以了.