Проверка событий в onCreate

[Михаил Юрьевич]

Я задавал этот вопрос но хочу задать немного по другому,
Программа запускается с автозапуска,минимизируется в трее и оттуда работает,в OnCreate обрабатываю две процедуры:
OnlyOne;{Процедура для проверки запуска второй копии}
Application.ShowMainForm:=false;
Программа работает нормально,но если запустить вторую копию то выскакивает ошибка приложения
Ошибка наверное из за того что два события работают в OnCreate.Подскажите можно ли эти события обрабатывать как то по другому
Меня моя процедура для проверки второй копии устраивает

[D-mon]

А ты это делай в проджекте

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  //типа тут.....
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Stilet]

Ошибка наверное из за того что два события работают в OnCreate

Ошибки возникают только от кривых ручек. Тут либо твоя OnlyOne неверно работает либо... код в студию )

[Михаил Юрьевич]

Procedure TForm1.OnlyOne;
Var
HMutex: Integer;
Begin
HMutex:=CreateMutex(Nil, TRUE, '5');
If GetLastError <> 0 Then
Begin
ReleaseMutex(HMutex);
Halt;
End;
End;

Если я что нибудь одно убираю из OnCreate то ни каких ошибок нет

[Alter]

Я вот так смотрю, есть ли копия программы:

program Proj;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas'; {Form1}

{$R Proj.res}
Var HM :THandle;

function Check: boolean;
begin
  HM:=OpenMutex(MUTEX_ALL_ACCESS, false, 'Proj');
  Result:=(HM<>0);
  if HM=0 then HM:=CreateMutex(nil, false, 'Proj');
end;

begin
 If Check then Exit;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

И ошибки не возникают.

[Stilet]

Михаил Юрьевич

Alter подал хороший пример. Замечу только то что еще можно вместо Мютиксов Атомы применить та же чихарда только с другим названием (в данном случчае).