Общение программ через TEvent

[UnD)eaD)Snake]

Есть 2 программы. Одна всегда запущена и невидима(№1), другая визуальная(№2). Нужно чтобы прога №1 проверяла запущена ли прога №2 и если нет, то запускала ее. Можно какнибудь сделать такое общение через TEvent ?

[ZMeJ]

класс мне незнаком.
я бы через апи сделал
var h:Thandle
begin
h:=findWindow(nil,'заголовок окна');
if h=0 then
//запуск проги
end;

[still_alive]

Используй именованные объекты ядра.

[UnD)eaD)Snake]

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

класс мне незнаком.
я бы через апи сделал
var h:Thandle
begin
h:=findWindow(nil,'заголовок окна');
if h=0 then
//запуск проги
end;

Нет, это неподходит, т.к нужно при нажати определенной кнопки в проге №2, сообщить проге №1 что больше ненадо запускать прогу №2

[UnD)eaD)Snake]

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

Используй именованные объекты ядра.

ээ.. а мона подробнее

[still_alive]

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

[Ring0Sn]

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

Ну создаешь например мьютекс с каким-то именем при старте какой-нибудь программы

Ага, реализовать ето можно так если че:

var
  Hand: DWORD;

function Check: boolean;
begin
  Hand := OpenMutex(MUTEX_ALL_ACCESS, false, 'MY_GLOBAL_MUTEX_');
  Result := (Hand > 0);
  if not Result then Hand := CreateMutex(nil, false, 'MY_GLOBAL_MUTEX_');
end;

begin
  if Check then MessageBox(0, 'YES', 'ДРУГАЯ КОПИЯ УЖЕ ЗАПУЩЕНА', 0);
end;