avsmake.dpr

AVS生成工具

program avsmake;

uses
  Forms,windows,Dialogs,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {MoveForm};

{$R *.res}

begin
  Application.Initialize;
  if FindWindow('TMainForm', nil)=0 then
  begin
  Application.Title := 'AVS 生成器';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TMoveForm, MoveForm);
  Application.Run;
end
else
  Application.MessageBox('不能二次运行','警告',MB_OK);
//设置应用程序激活  SetActiveWindow(H);
end.