驱动编程

开发平台：

Delphi

clnMain.dfm：源码内容

							object Form1: TForm1
  Left = 192
  Top = 129
  Width = 696
  Height = 480
  Caption = 'Simple Screen Client'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poDefault
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object ScreenPlayer1: TScreenPlayer
    OnScreenBitmap = ScreenPlayer1ScreenBitmap
    OnHeaderUpdate = ScreenPlayer1HeaderUpdate
    OnFrameEnd = ScreenPlayer1FrameEnd
    Port = 3514
    MulticastIP = '224.0.0.1'
    Active = True
    Left = 8
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    Left = 8
    Top = 40
    object FullScreen1: TMenuItem
      Caption = 'Full Screen'
      OnClick = FullScreen1Click
    end
    object Restore1: TMenuItem
      Caption = 'Restore'
      OnClick = Restore1Click
    end
  end
end

						