Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Как вызвать свою программу из трея?   Найти похожие ветки 

 
Руслана   (2005-01-20 13:12) [0]

Использую следуюший код для определения запуска второй копии своего приложения:

var
UniqueMapping:THandle;
h:hWnd;
begin
 UniqueMapping:= CreateFileMapping($ffffffff, nil, PAGE_READONLY, 0, 32, "MyMap");
if UniqueMapping = 0 then
          begin
 ShowMessage("Ошибка выделения памяти");
 Halt;
   end
else if GetLastError = ERROR_ALREADY_EXISTS then
   begin
 ShowMessage("Программа уже запущена");    
  Halt;
   end;
 Application.Initialize;
 Application.CreateForm(TMainForm, MainForm);
 Application.CreateForm(TDataModule1, DataModule1);
 Application.CreateForm(TFormInfo, FormInfo);
 Application.CreateForm(TFormOption, FormOption);
 Application.Run;

Программа большую часть висит в трее.

Как мне вызвать свою программу из трея при попытке запуска второй копии приложения? Наподобие того как это делает Total Commander например


 
Virgo_Style ©   (2005-01-20 13:32) [1]

FindWindow + SendMessage ?

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

Что касается SendMessage - надо подумать, какое сообщение использовать


 
ALS ©   (2005-01-20 14:08) [2]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619824&n=15


 
Руслана   (2005-01-20 18:35) [3]

Что-то не получается - программа из трея не вылазит.



Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
1-1106458556
Alex_pv2
2005-01-23 08:35
2005.02.06
hint для Items в ListBox


14-1105947608
Holy
2005-01-17 10:40
2005.02.06
Охлаждение винчестера


1-1106329643
Troll
2005-01-21 20:47
2005.02.06
Рабта с компонентами


14-1105972475
Cosinus
2005-01-17 17:34
2005.02.06
Хм... Время включения заставки в NT-системах...


1-1106071661
Никита
2005-01-18 21:07
2005.02.06
Как затолкать в SubItems ListView a компонент?