videounit.pas

冰河反弹版之独孤夕客专版 今天我决定把这个版本的冰河反弹版程序源码公布

unit VideoUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TVideoForm = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  VideoForm: TVideoForm;

implementation
    uses Unit1;
{$R *.dfm}

procedure TVideoForm.Button1Click(Sender: TObject);
begin
   MainForm.ZhuDongCmdSend('060','',false);
end;

procedure TVideoForm.Button2Click(Sender: TObject);
begin
   MainForm.ZhuDongCmdSend('063','',false);
end;

procedure TVideoForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   MainForm.ZhuDongCmdSend('063','',false);
end;

end.