Проверить, открыто ли приложение

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

Как не допустить запуск второй копии программы,есть код ,но хотел
выводить диалоговое окно о том что программа открыта,а здесь не получается,она просто блокирует запуск копии

var
  hMutex : THandle;
begin

  hMutex := CreateMutex(0, true , 'My application name');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    CloseHandle(hMutex);
Application.Terminate;

  end;

[Terran]

Можно сделать это так:

Procedure OnlyOne;
Var
HMutex: Integer;
Begin
HMutex:=CreateMutex(Nil, TRUE, '5');
If GetLastError <> 0 Then
Begin
ReleaseMutex(HMutex);
ShowMessage('Копия программы уже запущена!');
Halt;
End;
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
OnlyOne;
end;

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

Сообщение от Terran

Можно сделать это так:

Procedure OnlyOne;
Var
HMutex: Integer;
Begin
HMutex:=CreateMutex(Nil, TRUE, '5');
If GetLastError <> 0 Then
Begin
ReleaseMutex(HMutex);
ShowMessage('Копия программы уже запущена!');
Halt;
End;
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
OnlyOne;
end;

У меня такая же,с диалоговым окном работает не корректно(попробуйте сами),а если убрать строку ShowMessage('Копия программы уже запущена!'); то программа как и у меня будет блокировать запуск копии

[strannik]

так устроит?

файл проекта (.dpr):

program new;
uses
  ...
  windows, dialogs,
  ... ;

{$R *.res}

var
 HM: THandle;

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

begin
 if Check then
  begin
   showmessage('Сообщение!');
   Exit;
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[SERG1980]

в .dpr

program Organaizer;
uses
 ........
{$R *.res}
var
  hwnd: THandle;
begin
  hwnd := FindWindow('TMainForm', 'Органайзер v1.0');
  if hwnd = 0 then
  begin
  Application.Initialize;
  Application.Title := 'Органайзер v1.0';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TEditForm, EditForm);
  Application.CreateForm(TPasswordForm, PasswordForm);
  Application.CreateForm(TPassEditForm, PassEditForm);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.Run;
  end;