Приемы управления сторонними приложениями

Функция.

Описание.

Параметры.

Возвращаемое значение.

GetClassName.

Считывает имя класса окна.

Wnd: Идентификатор окна.

ClassName: Буфеp для приема имени класса.

MaxCount: Размер буфера.

Фактическое число скопированных символов;

0 — если ошибка.

GetWindowText.

Копиpует в Str заголовок окна или текст органа управления.

Wnd: Идентификатор окна или органа управления.

Str: Буфер, принимающий строку.

MaxCount: Размер буфера Str.

Фактическое число скопированных байт или 0, если текст отсутствует.

GetWindowTextLength.

Считывает длину заголовка окна или текста органа управления.

Wnd: Идентификатор окна.

Длина заголовка окна в символах.

IsIconic.

Определяет, является ли окно пиктограммой (минимизированным).

Wnd: Идентификатор окна.

Не нуль, если минимизировано; 0 — если нет.

IsWindow.

Определяет, является ли окно допустимым существующим окном.

Wnd: Идентификатор окна.

Не нуль, если окно достоверно; 0 — если нет.

IsWindowEnabled.

Определяет, является ли окно разрешенным для ввода с мыши и с клавиатуры.

Wnd: Идентификатор окна.

Н…

где функция MakeWParam собирает двойное слово из двух слов.

Для того, чтобы записать текст в строковой редактор можно использовать сообщение WM_SETTEXT. Участок кода, выполняющий поиск edit’а и меняющий его текст выглядит следующим образом:

var pCh: pChar;

h_edit := FindWindowEx (handle, 0, 'EDIT', 'Hello');

if h_edit = 0 then.

Writeln ('The edit not found!').

else begin.

Writeln (' handle of the edit is ', h_edit);

pCh := 'текст, вставленный из другой программы';

SendMessage (h_edit, WM_SETTEXT, 0, integer (pCh));

end;

Научимся теперь выбирать нужные пункты меню. Нажмем, например, на пункт меню выход. Это третий под пункт (разделители тоже считаются!) первого меню, то есть код будет иметь следующий вид:

h_menu := GetMenu (Handle); //получили дескриптор главного меню окна.

if h_menu 0 then begin.

h_menu := GetSubMenu (h_menu, 0);//получили дескриптор первого пункта главного меню (0 -первый пункт).

//получим идентификатор 3 пункта подменю меню (черты в меню — это также пункты).

id_menu := GetMenuItemID (h_menu, 2);

if id_menu 0 then.

//запускаем пункт меню. Именно PostMessage, SendMessage — не работает.

PostMessage (handle, WM_COMMAND, id_menu, 0);

end;

В результате, программа должна закрыться, так как выбранный нами пункт меню — выход.

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

// следующая функция является макросом, не переведенным с С++ в поставке Delphi.

function MAKELANGID (sPrimaryLanguage: Word;

sSubLanguage: Word): Word;

begin.

result := (sSubLanguage shl 10) or.

sPrimaryLanguage;

end;

var pCh: pChar; // буфер для сообщения об ошибке.

…

// при возникновении ошибки ее код нужно преобразовать в понятный пользователю текст с помощью функции FormatMessage.

FormatMessage (FORMAT_MESSAGE_ALLOCATE_BUFFER OR FORMAT_MESSAGE_FROM_SYSTEM,.

nil, GetLastError (), MAKELANGID (LANG_NEUTRAL, SUBLANG_DEFAULT) {Default language}, pCh, 0, nil);

// показываем ошибку пользователю:

MessageBox (0, pCh, 'Last error', MB_OK or MB_ICONINFORMATION);

Проектное задание

Написать программу, которая будет пытаться двигать главное окно компилятора Delphi, вызывать пункты меню сохранить (Save all) и запустить (Run). При вызове пункте меню Save as… программно заставить сохранить по указанному заранее пути. Попробуйте создать свою кнопку в чужом приложении.

Тест рубежного контроля № 3.

Тест содержит 5 заданий, на выполнение которых отводится 3 минуты. Выберите наиболее правильный, по Вашему мнению, вариант ответа и отметьте его любым значком в бланке ответов.

Бланк ответов

Критерии оценки.

• 4 и более правильных ответов — отлично
• 3 правильных ответа — хорошо
• 2 правильных ответа — удовлетворительно
• 1 и менее правильных ответов — неудовлетворительно