[Кодер]

Уважаемые,

пытаюсь сделать: при попытке пользователя запустить второй экземпляр программы, отобразить первый, несмотря на его состояние (свернут, не активен..)

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

баг: после восстановления окна первого экземпляра не работает функция сворачивания окна. При этом закрыть окно и максимизировать его возможно.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

h :=  FindWindow('TfrmMain','%form_title%');       if h <> 0 then        begin          //если окно не отображено на экране        //то максимизировать его        if not IsWindowVisible(h) then           ShowWindow(h,sw_showmaximized);          //выставляем окно на передний план                    SetForeGroundWindow(h);        end     else        begin        Application.Initialize;        ...        Application.Run;        end;