Советы по Delphi. Версия 1.4.3 от 1.1.2001

end;

function InitInstance : Boolean;
var
 BSMRecipients: DWORD;
begin
 Result := False;
 //- пробуем открыть MUTEX созданный предыдущей копией программы
 MutHandle := CreateMutex(Nil, True, UniqueAppStr);
 //- Мутекс уже был создан ?
 SecondExecution := (GetLastError = ERROR_ALREADY_EXISTS);
 if (MutHandle = 0) then begin
ShowMessage('Ошибка создания Mutex.');
 Exit;
 end;
 if Not (SecondExecution) then begin
//- назначаем новый обработчик сообщений приложения, а старый сохраняем
 OldWProc := TFNWndProc(SetWindowLong(Application.Handle, GWL_WNDPROC, Longint(@NewWndProc)));
 //- если обработчик не найден устанавливаем ошибку
 if (OldWProc = Nil) then begin
ShowMessage('Ошибка поиска стандартного обработчика сообщений приложения.');
 Exit;
 end;
 //- Установить "нормальный" статус основного окна приложения
 ShowWindow(Application.Handle, SW_ShowNormal);
 //- покажем основную форму приложения
 Application.ShowMainForm := True;
 //- все нормально мама трын тин тин тин тири тын тын
 Result := True;
 end
 else begin
//- установить статус окна приложения "невидимый"
 ShowWindow(Application.Handle, SW_Hide);
 //- Не покажем основную форму приложения
 Application.ShowMainForm := False;
 //- Посылаем другому приложению сообщение и информируем о необходимости
 // перевести фокус на себя
 BSMRecipients := BSM_APPLICATIONS;
 BroadCastSystemMessage(BSF_IGNORECURRENTTASK or BSF_POSTMESSAGE, @BSMRecipients, MessageID, 0, 0);
 end;
end;

initialization
begin
 //- Создать ункальную строку для опознания приложения
 UniqueAppStr := PChar('YoungHackerNetworkDataBaseProgramm');
 //- Зарегистрировать в системе уникальное сообщение
 MessageID := RegisterWindowMessage(UniqueAppStr);
end;

finalization
begin
 if (OldWProc <> Nil) then
{ Приводим приложение в исходное состояние }
 SetWindowLong(Application.Handle, GWL_WNDPROC, LongInt(OldWProc));
 end;

end.

Как не допустить запуск второй копии программы X

Nomadic рекомендует следующий код:

FindWindow является неполным решением (если меняется заголовок окна или если есть другая программа с таким же заголовком или типом окна).

Вторично: Это работает медленно.

Правильно — использовать обьекты синхронизации Win32 API.

Лениво пользовать семафоры, покажу на именованных мутексах (семафоры с двумя состояниями).

Unit OneInstance32;

interface

implementation

uses
 Forms;

var
 g_hAppMutex: THandle;

function OneInstance: boolean;
var
 g_hAppCritSecMutex: THandle;
 dw: Longint;
begin
 g_hAppCritSecMutex := CreateMutex(nil, true, PChar(Application.Title + '.OneInstance32.CriticalSection'));
 // if GetLastError - лениво писать
 g_hAppMutex := CreateMutex(nil, false, PChar(Application.Title + 'OneInstance32.Default'));
 dw := WaitForSingleObject(g_hAppMutex, 0);
 Result := (dw <> WAIT_TIMEOUT);
 ReleaseMutex(g_hAppCritSecMutex); // необязательно вследствие последующего закрытия
 CloseHandle(g_hAppCritSecMutex);
end;

initialization
 g_hAppMutex := 0;

finalization
 if LongBool(g_hAppMutex) then begin
 ReleaseMutex(g_hAppMutex); // необязательно
 CloseHandle(g_hAppMutex);
 end;

end.

Как не допустить запуск второй копии программы XI

Михаил Чумак рекомендует следующий код:

Есть такая штука Atom (см. Help).

program SelfCheck;

uses