Здравствуйте, CR-LF, Вы писали:

CL>Caution: Thousands of messages per second flow though this event. Be careful
CL>when coding the handler, because it can affect the performance of the entire
CL>application.

Если требуется подобная осторожность, то можно назначать нужный
обработчик в Application.OnDeactivate, а OnActivate — его обнилить.
Неактивным окнам достается немного из этих тысяч.
Насколько при этом улучшиться performance мне трудно судить

CL>И мы вновь возвращаемся к началу нашего увлекательного разговора

Ну, надеюсь уже на другом уровне

Здравствуйте, CR-LF, Вы писали:

CL>Кстати, а мне идея с физическим файлом нравится.

На худой конец можно и так.
Если с флагом FILE_FLAG_DELETE_ON_CLOSE | FILE_ATTRIBUTE_TEMPORARY.

Здравствуйте, Аноним, Вы писали:

А>...и описанная ниже ручная работа

А>А мьютексы могут конфликтовать по имени с другими программами, особенно компонентно написанными на Delphi (Mutex1, Mutex2 ии т.д.

а GUID для чего придумали?

Здравствуйте, Rius, Вы писали:

R>а GUID для чего придумали?

Видимо, для того чтобы через наиболее полюбившиеся экзамплы
они проникали в широкие компьютерные массы.

> CL>Кстати, а мне идея с физическим файлом нравится.
>
> На худой конец можно и так.
> Если с флагом FILE_FLAG_DELETE_ON_CLOSE | FILE_ATTRIBUTE_TEMPORARY.

Это откуда ?
Я вообще-то имел ввиду

if FileExists('somefile.pid') then // это вторая копия
else begin // это первая копия
  AssignFile(F, 'somefile.pid');
  Rewrite(F);
  CloseFile(F);
end;

Здравствуйте, CR-LF, Вы писали:

CL>Это откуда ?

RTFM: CreateFile.

CL>Я вообще-то имел ввиду

Нужно предусмотреть терминирование процесса, т.е., случаи,
когда он не сможет удалить файл при завершении.

CL>Не перестаю я дивиться этому форуму.

Ага, обсуждение WINAPI вопросов в форуме Delphi

CL>Вот если бы в институте так объясняли

Ну не знаю, нас в школе мучали Win16 + BorlandC++ + OWL

Не то чтобы сильно объясняли — но доки читать рекомендовали :D