www.pudn.com > CAPMCI.rar > VMain.pas

unit VMain; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, WVideo; 
 
type 
  TVideoMain = class(TForm) 
    Button1: TButton; 
    Button2: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  VideoMain: TVideoMain; 
 
implementation 
 
{$R *.DFM} 
 
procedure TVideoMain.Button1Click(Sender: TObject); 
begin 
	Video.ShowModal; 
end; 
 
procedure TVideoMain.Button2Click(Sender: TObject); 
begin 
	Application.Terminate; 
end; 
 
end.