constructor, destructor override. Подправить код.

[Roof]

Нашел статью в DWorld о том как блокировать запуск второго экземпляра приложения. Скопировал код к себе в приложение. Плюс дописал в раздел public две строчки, в исходнике указал эти строчки комментариями. Но вот проблема - теперь приложение не запускается вообще! Не то что второй экземпляр, но даже первый неи хочет работать!!! Думаю проблема в правильном использовании override. Выкладываю в архиве исходник. Подскажите, где я ляп допустил

[NikLik]

Если не ошибаюсь, то в архиве пустой проект.
Вот как это делал я:

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

{$R *.res}

var
  HM: THandle;

function Check: boolean;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'Название_твоей_программы');
  Result := (HM <> 0);
  if HM = 0 then
    HM := CreateMutex(nil, false, 'Название_твоей_программы');
end;

begin
  if Check then
  begin
    messagebox(application.Handle, 'Один экземпляр программы уже запущен!', 'Ошибочка', MB_OK);
    Exit;
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Roof]

2 NikLik да, не ошибаешься, напутал я
вот выкладываю исходник. Все равно интересно, что я не так делаю в своем исходнике. Твое решение сейас испытаю Спасибо

[Roof]

странно, но уже работает....

[NikLik]

Хм,странно, у меня всё нормально работает.
Во всяком случае, с имеющимся кодом.

=================================== =========
)))

[Roof]

2 NikLik - а что дешевле использовать - твое или мое?

[NikLik]

)Незнаю, но mutex'ы уничтожаются сами, а за атомами надо следить...)

[NikLik]

Вот, этот вариант мне нравится больше всех предыдущих

[Roof]

2 NikLik Спасибо тебе буду изучать

[mutabor]

Roof, советую почитать, по мьютексам полный расклад на две страницы плюс ссылка на статью
http://www.programmersforum.ru/showthread.php?t=21930