Delphi FAQ - Как сделать так, чтобы программу можно было запустить только в одном экземпляре?

ОГЛАВЛЕНИЕ


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

Воспользуйтесь функцией ActivatePrevInstance из библиотеки rxLib. Для
завершения второго экземпляра используйте Application.Terminate.

(AS): Другой вариант: X:\DELPHI2\DEMOS\IPCDEMOS\ipcthrd.pas, функция
IsMonitorRunning().