ウィンドウを最小化          <TOP>

ウィンドウを最小化します。単語から察すると終了かと思ってしまいます。

CloseWindow ウィンドウを最小化

　

 

　

'================================================================
'= ウィンドウを最小化する
'================================================================
#include "Windows.bi"

' ウィンドウを最小化する
Declare Function Api_CloseWindow& Lib "user32" Alias "CloseWindow" (ByVal hWnd&)

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long

    Ret = Api_CloseWindow(GethWnd)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End