Очень часто возникают ситуации, когда необходимо заставить некоторое стороннее приложение, исходный код которого недоступен и не экспортирует собственного API, выполнять некоторые действия. Одним из примеров является нажатие 500 раз на кнопку “Отмена” при установки ПО с некачественного диска. В другом примере, необходимо провести рутинную операцию по сглаживанию кривой, которая включает в себя команд - загрузить файл, построить график, выполнить сглаживание, экспортировать результат… Гораздо удобнее один раз нажать на кнопку и проделать эти операции автоматически. В этом разделе будет рассказано, каким образом можно подавать команды на различные управляющие элементы приложений.

В качестве примера, рассмотрим управление приложением, написанным на чистом API в предыдущей части “Создание …”.

Начать необходимо с того, чтобы найти дескриптор интересующего окна, что можно сделать с помощью функции FindWindow, которое находит первое попавшееся родительское окно верхнего уровня с совпадающими ClassName и WindowName. Не осуществляет поиск дочерних окон. Синтаксис этой функции в Делфи:

function FindWindow(ClassName, WindowName: PChar): HWnd;

где ClassName - имя класса окна (заканчивающееся пустым символом, nil - если все классы), WindowName - текстовый заголовок окна или nil, если все окна.

Функция возвращает 0, если окно не найдено, либо, в случае успеха, дескриптор окна.

Таким образом, для получения дескриптора необходимо указать имя класса окна и его заголовок. Если они неизвестны, то можно было бы запустить процедуру поиска с использованием функции EnumWindows, которая будет рассмотрена позже.

В нашем случае, зная заголовок и класс окна, можно обойтись следующим кодом:

program program_1;

{$APPTYPE CONSOLE}

uses Windows, SysUtils;

const

sClassName = 'myWindow';

var

handle: HWND;

begin

handle := FindWindow(sClassName, nil);

if handle = 0 then

Writeln('The window not found!')

else

Writeln('*> handle = ', handle);

writeln('press enter');

readln;

end.

В данном случае нет необходимости указывать заголовок окна - оно однозначно определяется классом.

Приведем для справки функции, полезные при работе с окнами верхнего уровня:

Переберем теперь все окна системы и выведем их заголовки и классы в консольное окно. Для этого, заведем следующую вспомогательную функцию:

function EnumProc(h: HWND; param: longint): boolean; stdcall;

var wnd_class, wnd_name: pchar; // буферы для класса и заголовка окна

begin

GetMem(wnd_name, 256); // резервируем память

GetMem(wnd_class, 256);

GetWindowText(h, wnd_name, 256);

GetClassName(h, wnd_class, 256);

writeln(k,') ',h,' "',wnd_name,'" {',wnd_class,'}');

inc(k); // k - глобальная переменная-счетчик

result := true;

FreeMem(wnd_name); // освобождаем память

FreeMem(wnd_class);

result := true; // продолжаем перебирать окна

end;

адрес которой будет передан API функции EnumWindows:

begin

...

k := 1;

EnumWindows( @EnumProc, 0 );

...

end.

Результат работы консольного приложения (отрывок):

221) 66248 "SysFader" {SysFader}

222) 66106 "Tёяыvтр¦•хх ьхэ¦ ёхЄш" {ATL:701331A0}

223) 65860 "" {SynTrackCursorWindowClass}

224) 65812 "" {SynTrackCursorWindowClass}

225) 65788 "CL RC Engine3 Dummy Winidow" {CL RC Engine3 Dummy Winidow}

226) 65770 "" {tooltips_class32}

227) 131134 "CiceroUIWndFrame" {CiceroUIWndFrame}

228) 196642 "TF_FloatingLangBar_WndTitle" {CiceroUIWndFrame}

229) 66212 "" {tooltips_class32}

230) 131408 "Tяшёюъ сvёЄЁющ тёЄртъш" {#32770}

231) 590728 "" {ComboLBox}

232) 393944 "" {WMDMNotificationWindowClass}

233) 131900 "DDE Server Window" {OleDdeWndClass}

234) 525194 "" {WMPMessenger}

Практически любые манипуляции с окнами и элементами управления выполняются путем отправки сообщений с помощью функции SendMessage и PostMessage. Отличие между этими функциями заключается в том, что функция SendMessage ожидает, пока адресат не обработает сообщение, в то время как PostMessage просто добавляет сообщение в очередь.

LRESULT SendMessage/PostMessage(

HWND hWnd, // дескриптор окна-адресата

UINT Msg, // посылаемое сообщение

WPARAM wParam, // первый параметр сообщения

LPARAM lParam // второй параметр сообщения

);

Например, рассмотренная выше функция GetWindowText эквивалентна посылке сообщения WM_GETTEXT.

Довольно часто используется сообщение WM_SYSCOMMAND, которое, позволяет выполнять различные операции в зависимости от значения параметра wParam:

· SC_CLOSE Закрывает окно.

· SC_CONTEXTHELP Изменяет курсор на вопросительный знак.

· SC_DEFAULT Выбирает элемент по умолчанию; эмулирует двойное нажатие на Системное меню.

· SC_HOTKEY Инициирует окно, связанное с текущим - указанной комбинацией горячих клавиш.

· SC_HSCROLL Прокручивается горизонтально окно.

· SC_KEYMENU Открывает Системное меню как результат нажатия клавиши.

· SC_MAXIMIZE (или SC_ZOOM) Разворачивает окно.

· SC_MINIMIZE (или SC_ICON) Сворачивает окно.

· SC_MONITORPOWER Устанавливает состояние дисплея.

· SC_MOUSEMENU Открывает Системное меню как результат щелчка мыши.

· SC_MOVE Перемещает окно.

· SC_NEXTWINDOW Переходит к следующему окну.

· SC_PREVWINDOW переходит к предыдущему окну.

· SC_RESTORE Восстанавливает окно к его нормальной позиции и размеру.

· SC_SCREENSAVE Запускает стандартный хранитель экрана.

· SC_SIZE Задает размеры окно.

· SC_TASKLIST Выполняет или инициирует Windows Task Manager.

· SC_VSCROLL Прокручивается окно вертикально.

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

SendMessage(handle, WM_SYSCOMMAND, SC_MINIMIZE, nil);

Можно также показать или скрыть окно, используя функцию API ShowWindow.

Нажмем теперь на единственную кнопку, которая имеется на тестовом приложении. Для этого необходимо знать дескриптор кнопки, поэтому пройдем по всем элементам управления также, как это делали с окнами верхнего уровня, а именно, с помощью функции EnumChildWindows:

EnumChildWindows(handle, @EnumProc, 0);

где вспомогательная функция EnumProc осталась неизменной. Функция EnumChildWindows перечисляет не только элементы верхнего уровня, но и вложенные друг в друга (например, кнопки на панели). В результате применения этой функции к нашему приложению получим список дочерних элементов:

1) 918740 "&Click here" {Button}

2) 853116 "Hello" {Edit}

3) 1180824 "Memo1" {Edit}

В нашем случае, когда заранее известен класс и заголовок элемента, его дескриптор можно получить более простым путем, а именно, с помощью функции FindWindowEx. Эта функция аналогична уже рассмотренной функции FindWindow, предназначенной для работы с дочерними окнами. Синтаксис этой функции:

function FindWindowEx(hndParent, hndChild :HWnd; ClassName, WindowName :LpctStr): HWnd;

где HndParent - дескриптор родительского окна верхнего уровня, HndChild - дескриптор дочернего окна с которого начинается поиск, ClassName - имя класса окна (заканчивающееся пустым символом, nil - если все классы), WindowName - текстовый заголовок окна или nil, если все окна. Функция возвращает дескриптор найденного окна либо нуль, если окно не найдено.

Получим дескриптор кнопки:

h_butt := FindWindowEx( handle, 0, 'BUTTON', '&Cli...