Проверка запущена ли ещё одна копия

[TaYgA]

Всем доброго времени суток. Есть такой код:

var
   HM :THandle;
function Check: boolean;
begin
  HM:=OpenMutex(MUTEX_ALL_ACCESS, false, 'Organizer');
  Result:=(HM<>0);
  if HM=0 then HM:=CreateMutex(nil, false, 'Organizer');
end;
begin
  if Check then begin
    ShowMessage('Извините, но одна из копий программы уже запущена.');
    exit;
  end;
  Application.Initialize;
  .................................................................
  Application.Run;
end.

А как мне сделать чтоб при повторном запуске программа не только выводила сообщение, но и разворачивалась из трея? (использую компонент CoolTreyIcon)

[Alex Cones]

Попробуйте послать через SendMessage. Что посылать посмотрите в модуле CoolTrayIcon в разделе, где описан обработчик.

[TaYgA]

Сообщение от Alex Cones

Попробуйте послать через SendMessage.

А можно об этом по подробней... Не совсем ясно

[Alex Cones]

Ищете свою копию:

H:=FindWindow(Класс окна,Nil);

Потом найденному пошлите сообщение:

SendMessage(H,...,...,...);

Что бы узнать, что именно посылать найдите функцию, в которой используется команда из CoolTrayIcon, и при нажатом CTRL нажмите на имя процедуры. Откроется модуль CoolTrayIcon. Там Наидите обработчик событий (весь модуль построен на обрабатывании этих сообщений). Он выглядит примерно так:

Case ... of
WM_... :
WM_... :
...

Точнее не скажу, модуля нет под рукой. Поищите там сообщение, которое отвечает за показ иконки в трее. Пошлите сообщение на удаление иконки. Потом пошлите своему приложению мессагу на показ себя самого.

--------------

Есть другой вариант. Не через мьютексы и окошки. При запуске программы создать запись в реестре или создать файл. При запуске копии проверять наличии записи\файла. Есть - изменяем его содержимое и самоуничтожаем копию. Копия запущенная первой должна по крайней мере раз в 3 секунды проверять содержимое файла или записи и делать то, что там написано. Например Если в файле написано "Hide mode" -Ничего не делать. А если написано "Visible mode" - развернуться из трея.

[TaYgA]

Спасибо!!! Буду разбираться

[TaYgA]

У меня возник такой вопрос... Как можно написать условие что если программа запущена с exeшника, то выполнить то то действие?! Просто у меня программа запускается ещё при помощи автозагрузки...

[Alex Cones]

Использовать параметры. В автозагрузку поставить ярлык или батник в котором писать например exe.exe -a
А хлопая по значку будет обычный запуск.

[TaYgA]

Спасибо! Буду думать

[TaYgA]

Сообщение от Alex Cones

Использовать параметры. В автозагрузку поставить ярлык или батник в котором писать например exe.exe -a
А хлопая по значку будет обычный запуск.

А можно небольшой примерчик?!

[Alex Cones]

Вот тут смотрите. Рассказывается принцип с примерами.