Свертывание программы в трей

[apromix]

Здраствуйте!

Это пример свертывания программы в трей. Но в нем есть ошибка, выявить которую пока не могу. Потому и обращаюсь за помощью. Если свертывать программу по "_", то все окей, восстановление тоже ок, но если попытаться свернуть программу из панели задач, она в первый раз прячется в трей как положено, а потом отказывается (а нужно чтоб постоянно свертывалась).

Спасибо.

[FaTaL]

Вот код у меня нормально сворачивается:

procedure TMainFrm.OnMinimize(Var Msg:TMessage);
begin
  if Msg.WParam=SC_MINIMIZE then
    MainFrm.Hide else
  inherited;
end;

Но у меня проблема в другом, не могу развернуть при повторном запуске программы.
Вот код:

h := FindWindow(nil, PChar('Caption окна'));
      if h<>0 then
        SendMessage (h, WM_SHOWWINDOW, 1, 0) else
        MessageBox (h, 'Not Found', '', 5);
      exit;

При этом MainFrm.Show; прекрасно работает.
Как решить проблему?

[phomm]

По проблеме из первого поста:
заменить соотв. блок кода на такой

begin
  ActionIcon(2, Application.Icon); // Удаляем значок из трея
  ShowWindow(Handle, SW_SHOW); // Восстанавливаем окно программы
  SetForegroundWindow(Handle);
  ShowWindow(Application.Handle, SW_SHOW); // Восстанавливаем кнопку программы
end;

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

[apromix]

Спасибо phomm, помогло

[FaTaL]

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

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

Как мне послать окну команду MainForm.Show через SendMessage?
Ведь я хочу обработать повторный запуск своей программы.
Пробовал посылать WM_SYSCOMAND и wParam SC_RESTORE, окно восстанавливается, но не обрабатывается комманда свернуть по иконке в системном меню. Хотя когда я из той же самой программы делаю MainFrm.Show всё прекрасно восстанавливается. Как мне послать команду окну Show через SendMessage?
Или может метод Show это несколько системных команд (SC_RESTORE + Ещё что-то)?

[apromix]

Вот мое решение проблемы:

Begin
ActionIcon (2,Application.Icon); // Удаляем значок из трея
ShowWindow(Handle,SW_SHOWNORMAL); // Восстанавливаем окно программы
ShowWindow(Application.Handle,SW_SHOWNORMAL); // Восстанавливаем кнопку программы
SetForegroundWindow(Handle);
End;

[phomm]

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

SC_RESTORE

Может SW_RESTORE ?
Вы ошиблись в букве или прямо так и делаете ? просто есть и то и это значение

[FaTaL]

Именно SC от SystemComand