Защита от повторного запуска

[Vladya]

У меня вопросик: как можно сделать что бы нельзя было запустить несколько копий программы, тоесть что бы если программа уже запущена, то вторую ее копию запустить нельзя было.

[uberchel]

Вот !

 
program Project1;

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

{$R *.res}



function RunOff: boolean;
var
  H: THandle;
begin
  H := OpenMutex(MUTEX_ALL_ACCESS, false, Application.ClassInfo);
  Result := (H <> 0);
  if H = 0 then H := CreateMutex(0, false, Application.ClassInfo);
end;

begin
  if RunOff then Exit;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Vladya]

Что то оно у меня не работает, может сделал что не так, выдает ошибки в тех местах программы где раньше все было ОК. Не знаете почему такое может быть?

[uberchel]

Выложи код ! может в uses забыл написать windows

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

[Terran]

Procedure TForm1.FormCreate(Sender: TObject);
Begin
CreateMutex(Nil, True, 'Proga');
If GetLastError <> 0 Then
Halt;
End;

[Vladya]

uberchel у меня там все есть, а код слишком большой выложить не получится.

[uberchel]

Попробуй у Terran - хотя функция одна и таже ?
И ошибка то какая ??? Зделай скрин или напиши!

Вот исходник , всё работает!

[Vladya]

Я не знаю почему но ругалось оно у меня на все процедуры, начиная с самой первой, убираю ту на которую кричит, он переходит на вторую, и так покуда все процедуры не уберешь.
Код Terran работает на ура. Так что все, спасибо за помощь!

[Stilet]

Уже обсуждалось. Рули поиском.