VPF::Как определить размер окна в чужом приложении?

Edgar4

Дата 19.11.2014, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 19.11.2014

Репутация: нет
Всего: нет

Здравствуйте!
Друзья подскажите, как по дескриптору окна или по его заголовку определить его размеры?

diadiavova

Дата 21.11.2014, 03:04 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Код


Imports System.Runtime.InteropServices

Понадобится такая структура

Код


    <StructLayout(LayoutKind.Sequential)>
    Structure RECT
        Public Top, Left, Right, Bottom As Integer
    End Structure

Импортируем винапи функцию

Код



    Declare Auto Function GetWindowRect Lib "user32" (hwnd As HandleRef, <Out> ByRef lprect As RECT) As Boolean

Ну и собственно код для получения размеров по хэндлу

Код


            Dim r As RECT
            GetWindowRect(New HandleRef(Nothing, w), r)
            Console.WriteLine("Top = {0}, Left = {1}, Right = {2}, Bottom = {3};", r.Top, r.Left, r.Right, r.Bottom)

Здесь w - хэндл окна.

С текстом немного сложнее.

Код


 Public Delegate Function EnumedWindow(handleWindow As IntPtr, [handles] As ArrayList) As Boolean
    Private Declare Auto Function EnumWindows Lib "user32" (ByVal lpEnumFunc As EnumedWindow, ByVal lParam As ArrayList) As Boolean

    Function GetWindows() As ArrayList
        Dim windowHandles = New ArrayList()
        Dim callBackPtr As EnumedWindow = AddressOf GetWindowHandle
        EnumWindows(callBackPtr, windowHandles)
        Return windowHandles
    End Function

    Private Function GetWindowHandle(windowHandle As IntPtr, windowHandles As ArrayList) As Boolean
        windowHandles.Add(windowHandle)
        Return True
    End Function

Вызвав GetWindows, получишь коллекцию хэндлов, там уже по ним можно получить текст с помощью GetWindowText.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »