unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus,Directshow9,WMF9,StrUtils;
type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; MTVOpen: TOpenDialog; VisionSave: TSaveDialog; SoundSave: TSaveDialog; N4: TMenuItem; procedure N3Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N4Click(Sender: TObject); private { Private dec......
阅读全文