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

[tarakan1983]

Здравствуйте.
Моя программа при запуске сворачивается в трей. Нужно, чтобы при попытке запуска второй копии exe копия не запускалась, а разворачивалась из трея или если она свернута на панель задач, то оттуда.
Пробую так (в файле dpr):

var
    k : Cardinal;
    wnd : HWND;
begin
  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  //Условие выполняется      
        SendMessage(wnd,WM_GOTOFOREGROUND,0,0);//Это не срабатывает
        Application.Terminate;
        Exit;
    end;
  ...
  //Дальнейший запуск приложения в нормальном режиме
end

но SendMessage почему-то не разворачивает окно. Подскажите, где я ошибся. Спасибо.

[beegl]

я так делал: добавить в событие OnReceiveCmdLine компонента OneInstancesEx

[Terran]

Попробуйте использовать функцию

ShowWindow(wnd, SW_SHOWNORMAL);

вместо

SendMessage(wnd,WM_GOTOFOREGROUND,0,0);//Это не срабатывает

[tarakan1983]

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

Попробуйте использовать функцию

ShowWindow(wnd, SW_SHOWNORMAL);

вместо

SendMessage(wnd,WM_GOTOFOREGROUND,0,0);//Это не срабатывает

Пробовал, не работает

я так делал: добавить в событие OnReceiveCmdLine компонента OneInstancesEx

Спасибо, разбираюсь

[Terran]

Пробовал, не работает

Возвращает ли функция FindWindow дескриптор окна? В вашем варианте должен быть зарегистрирован класс TFmMain. Если вы пытаетесь осуществить поиск по заголовку окна, то поменяйте параметры местами.

[tarakan1983]

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

Возвращает ли функция FindWindow дескриптор окна? В вашем варианте должен быть зарегистрирован класс TFmMain. Если вы пытаетесь осуществить поиск по заголовку окна, то поменяйте параметры местами.

Спасибо.

Пробовал, не работает

Ошибся, все срабатывает, но не хватало одной команды
Получилось так

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;

[Terran]

Отлично
P.S. Вижу поменяли флаг вызова на необходимый.

[Аватар]

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

[Shouldercannon]

Откуда вы взяли C14FBDB5-FBD7-4EB0-870B-98CB7A3420BE?

[tarakan1983]

Сообщение от Аватар

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

Согласен, есть предложения?

Откуда вы взяли C14FBDB5-FBD7-4EB0-870B-98CB7A3420BE?

Это GUID, в компиляторе нажал ctrl + shift + g