program AVSet;

uses
  Forms,
  Windows,
  AVSetFrm in 'AVSetFrm.pas' {AVSetForm};

{$R *.res}
var
  handle: THandle;
begin
  handle := openmutex(mutex_all_access, false, 'RealICQAVSet');
  if handle = 0 then
  begin
    handle := createmutex(nil,false,'RealICQAVSet');
    if handle = 0 then
    begin
      //创建失败
    end;
  end
  else
  begin
    //该程序已运行
    Exit;
  end;

  Application.Initialize;
  Application.Title := '音频视频调节向导';
  Application.CreateForm(TAVSetForm, AVSetForm);
  Application.Run;
end.