| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как развернуть окно другой программы (програмно) [D6, 2000]
Officeman © (2006-02-20 13:03:00)в форме, на кнопке такой код.
который проверяет наличие файла другой программы.
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)
clickmaker (2006-02-20 15:45:00) [1]
> 2. если программа "1.exe" запущено но свёрнута (wsMinimized),
> то
> надо по onClickButton1 развернуть(восстановить) её.
> (также как переключают Alt+Tab)
ShowWindow(hwnd, SW_RESTORE)
Неуверенный (2006-02-20 14:52:00) [2]
> 1. как проверить запущена программа "1.exe" или нет?
Чтобы проверить, открыта ли окно с каким-либо названием, используй функцию FindWindow или FindWindowEx. Параметров точно не помню, кажется, один должен быть заголовок программы, другой - его класс. Если окно открыто (программа запущена), эта функция возвращает значение хендла окна.
> 2. если программа "1.exe" запущено но свёрнута (wsMinimized),
> то
> надо по onClickButton1 развернуть(восстановить) её.
> (также как переключают Alt+Tab)
После того как получил хендл окна, отправляешь ему сообщение, кажется,
SENDMESSAGE(HWND,WM_SYSCOMMAND, SC_MAXIMIZE,0).
| |
