Установка высоты и ширины приложения с помощью WMI

Question

Можно ли установить высоту и ширину приложения с помощью WMI? Если так, то как? Например, измените высоту и ширину Блокнота.

Спасибо

Answer 1

Из VBScript, VBA и т.д. Действительно можно изменить размер окна. Ниже приведен пример того, как изменить размер окна, используя его дескриптор. Вам нужно будет указать hWnd (дескриптор окна) конкретного окна, размер которого вы хотите изменить. Другие win32 apis могут быть использованы для определения hwnd, например, из заголовка окна.

Const HWND_TOPMOST = -1
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)


Private Sub ResizeWindow(ByVal hWnd as Long,ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long)
    SetWindowPos hWnd, HWND_TOPMOST, X, Y, cx, cy, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub

Функция SetWindowPos