Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.12;
Скачать: CL | DM;

Вниз

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

 
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).


 
clickmaker ©   (2006-02-20 15:45) [2]


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

ShowWindow(hwnd, SW_RESTORE)



Страницы: 1 вся ветка

Текущий архив: 2006.03.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.075 c
1-1139405655
SiJack
2006-02-08 16:34
2006.03.12
аналог StrCopy для PWideChar


2-1140445949
Василь Быков
2006-02-20 17:32
2006.03.12
обновление в таблице ?


15-1140431069
Ega23
2006-02-20 13:24
2006.03.12
Чукча - чум


2-1140514284
VitV
2006-02-21 12:31
2006.03.12
ListBox+DblClick-проблема.


15-1140344806
Kerk
2006-02-19 13:26
2006.03.12
Как делать то, что любишь