запрет запуска несколько копий + CoolTrayIcon

[beegl]

Здраствуйте, Вы работали с компонентом CoolTrayIcon, если да, по подскажите, как удалить иконку в трее программно, или чтоб иконка не появлялась в трее когда программа запущена и в программе вписано только для одного запуска, тесть запрет на запуск несколько копий программы, когда повторно запускаешь, то в трее рядом с основной иконкой появляется ещё одна, как сделать, чтоб не было так?

[Человек_Борща]

выполнять проверку второй копии до инициализации Apptication

[beegl]

вот так?

program Project1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

var
  hwnd: THandle;

begin
  hwnd := FindWindow('TForm1', 'Form1');
  if hwnd = 0 then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
    SetForegroundWindow(hwnd)
end.

[Человек_Борща]

да, только искомое окно должно иметь уникальнейший заголовок или имя класса.
Как вариант, создайте пустую форму с уникальным заголовком окна, невидимую.

[beegl]

а как сделать, чтобы

CoolTrayIcon1.ShowMainForm;

работал, тоесть нажать на кнопку с этим кодом нажать, если программа свернута в трей?

этот код что-то не работает

//программно нажать на TCheckBox у другого окна, то есть у своего)
procedure CheckCheckBox(hApp: HWND; ClassName: string; bValue: Boolean; CheckBoxNr: Integer);
var
  i: Word;
  hCheckBox: HWND;
begin
  if not IsWindow(hApp) then Exit;
  for i := 0 to CheckBoxNr do
    hCheckBox := FindWindowEx(hApp, hCheckBox, PChar(ClassName), nil);
  if IsWindow(hCheckBox) then
    SendMessage(hCheckBox, BM_SETCHECK, Integer(bValue), 0);
end;

procedure ButtonClicks;
begin
  CheckCheckBox(FindWindow('TForm1', 'instance'), 'TCheckBox', True, 1);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
CoolTrayIcon1.ShowMainForm;
end;

[beegl]

подскажите,как развернуть окно если свернуто в трей другим методом что выше?

[Человек_Борща]

У меня все немного по другому.

В целом это выглядит так.
Первая копия ПО создает MMF файл, размером 4 байта,, и записывает туда HANDLE своего главного окна.

На этом все.

Вторая копия, при запуске, проверяет наличие этого MMF и если он есть, то читает HANDLE и посылает ему сообщение.

Первая копия ловит сообщение и показывает себя на рабочем столе.
Вторая копия закрывается т.к. факт наличия MMF говорит о том, что одна опия ПО запущена, зачем нам две.

[Кольша]

У меня сделано mutex'сами и findwindow..

[beegl]

подскажите другой вариант клик в чужом приложении, или как до Application.Run выполнить CoolTrayIcon1.ShowMainForm;, если программа уже запущена?

[3D Hunter]

попробуйте запустить вторую копию приложения под другим пользователем.запустилась,правда?ва ш код работает только для текущего пользователя.да и использование проверяющих файлов,имхо,неэффективная идея.лучшим вариантом видится использование глобальных мьютексов с уникальным именем в той ее секции инициализации кода.