Функция GetWindowPlacement

Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, _
    lpwndpl As WINDOWPLACEMENT) As Long

GetWindowPlacement получает информацию о расположении заданного окна и его состоянии (свернутое, раскрытое, нормальное). Перед вызовом функции не забудьте заполнить поле Length структуры WINDOWPLACEMENT

hwnd

Дескриптор окна

lpwndpl

Структура WINDOWPLACEMENT, содержащая информацию о состоянии и расположении окна

Пример

' Отобразим координаты окна Form1
Dim wp As WINDOWPLACEMENT
wp.Length = Len(wp) ' заполним поле Length

GetWindowPlacement Form1.hwnd, wp
Print "левый край"; wp.rcNormalPosition.Left
Print "Правый край"; wp.rcNormalPosition.Right
Print "Верхний край"; wp.rcNormalPosition.Top
Print "Нижний край"; wp.rcNormalPosition.Bottom

Смотри также

SetWindowPlacement

Категория

Окна