Развернуть свою копию из трея или панели задач

[Аватар]

По крайней мере Terminate независимо от поиска окна

[tarakan1983]

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

....
Получилось так

CreateMutex(nil,false,'C14FBDB5-FBD7-4EB0-870B-98CB7A3420BE');
  k := GetLastError();
  if (k=ERROR_ALREADY_EXISTS)or(k=ERROR_ACCESS_DENIED) then
    begin
      wnd := FindWindow('TFmMain',nil);
      if wnd<>0 then        
        ShowWindow(wnd, SW_RESTORE);
        SetForegroundWindow(wnd);
        //SendMessage(wnd,WM_GOTOFOREGROUND,0,0);
        Application.Terminate;
        Exit;
    end;

Напоролся на такой баг :
Программа разворачивается из трея, но на панели значка нет и если нажать на сворачивание, то окно никак не реагирует. Есть какие-то мысли?

Аватар, я ковырялся в google но так и не нашел альтернативного решения по Вашему замечанию. Можете что-то предложить? Потому что у меня во всех моих программах есть TFmMain

[min@y™]

У меня есть готовый компонент для этих целей. Я гляжу, вы тут все комсомольцы, не ищущие лёгких путёв.

ну ну...

[tarakan1983]

Сообщение от min@y™

У меня есть готовый компонент для этих целей. Я гляжу, вы тут все комсомольцы, не ищущие лёгких путёв.

ну ну...

Можете поделиться?

[min@y™]

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

Можете поделиться?

А ты хорошо будешь себя вести?
Не будешь спрашивать занятого на работе дядьколю, как им пользоваться?

[tarakan1983]

Сообщение от min@y™

А ты хорошо будешь себя вести?
Не будешь спрашивать занятого на работе дядьколю, как им пользоваться?

Обисчаю! можете скинуть на admin@strbit.ru

[min@y™]

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

Обисчаю!

ну смотри, я тебя за язык не тянул.

[beegl]

или OneInstancesEx.zip

[tarakan1983]

Сообщение от min@y™

ну смотри, я тебя за язык не тянул.

Спасибо большое!!!!
Компонент очень интересный. С моей задачей справляется на ура!!!. Но жалко что я зарекся не спрашивать про него. Очень интересны 2 Properties и 4 Events.