RealICQClient/AVSet/AVSet.dpr

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.