Подскажите, как свернуть акт. окно используя функцию WinAPI

[1]

Подскажите, как свернуть активно окно используя функцию WinAPI ShowWindow.

Спасибо.

[tyomitch]

http://bbs.vbstreets.ru/viewtopic.php?p=72398#72398

[Dimitr]

Код: Выделить всё

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub HideAllWindows()
Call keybd_event(&H5B, 0, 0, 0)
Call keybd_event(&H4D, 0, 0, 0)
Call keybd_event(&H5B, 0, &H2, 0)
End Sub


[tyomitch]

Это, я думаю, свернёт все окна, а не только нужное.

[Dimitr]

Код: Выделить всё

Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
    'Minimize this Window
    CloseWindow Me.hwnd
End Sub


Эта точно свернет

[Amed]

<censored>

Уже молчу
Прочитал сам, поразился и проникся ))

[tyomitch]

The CloseWindow function minimizes (but does not destroy) the specified window.