December 1, 2005 - WinTask - IsIconic

'
' IsIconic
'
'Declare Function IsIconic Lib "user32" Alias "IsIconic" (ByVal hwnd As Long) As Long
'

shell("notepad")
UseWindow("NOTEPAD.EXE|Edit|Untitled - Notepad|1",1)

hwnd=GetWindowHandle("NOTEPAD.EXE|Notepad|Untitled - Notepad",1)
a = External("user32","IsIconic", hwnd)
msgbox("Iconic (Maximized) Status for the Notepad main window is : "+Str$(a),,"IsIconic")

MinimizeWindow("NOTEPAD.EXE|Notepad|Untitled - Notepad",1)

a = External("user32","IsIconic", hwnd)
msgbox("Iconic (Maximized) Status for the Notepad main window is now : "+Str$(a),,"IsIconic")

RestoreWindow("NOTEPAD.EXE|Notepad|Untitled - Notepad",1)

SendKeys("fxn")