Как развернуть окно другой программы (програмно)

← →
Officeman (2006-02-20 13:03) [0]

в форме, на кнопке такой код.
который проверяет наличие файла другой программы.

procedure TForm1.Button1Click(Sender: TObject); begin if FileExists("1.exe")=true then begin ip1.Caption:="1"; end; end;

1. как проверить запущена программа "1.exe" или нет?

2. если программа "1.exe" запущено но свёрнута (wsMinimized), то
надо по onClickButton1 развернуть(восстановить) её.
(также как переключают Alt+Tab)

← →
Неуверенный © (2006-02-20 14:52) [1]

> 1. как проверить запущена программа "1.exe" или нет?

Чтобы проверить, открыта ли окно с каким-либо названием, используй функцию FindWindow или FindWindowEx. Параметров точно не помню, кажется, один должен быть заголовок программы, другой - его класс. Если окно открыто (программа запущена), эта функция возвращает значение хендла окна.

> 2. если программа "1.exe" запущено но свёрнута (wsMinimized),
> то
> надо по onClickButton1 развернуть(восстановить) её.
> (также как переключают Alt+Tab)

После того как получил хендл окна, отправляешь ему сообщение, кажется,
SENDMESSAGE(HWND,WM_SYSCOMMAND, SC_MAXIMIZE,0).

> 2. если программа "1.exe" запущено но свёрнута (wsMinimized),
> то
> надо по onClickButton1 развернуть(восстановить) её.
> (также как переключают Alt+Tab)

ShowWindow(hwnd, SW_RESTORE)

Как развернуть окно другой программы (програмно) Найти похожие ветки