Minimize کردن پنجره ها ...!

[AlgorithmX]

این پروژه ای که تو ضمینه هست برنامه ای هست که نام پنجره رو می گیره و بعد اونو به خاک میکشه (Minimize می کنه)...!

حالا برنامه ای از دوستان مخواهم که همه پنجره های باز رو Minimize کنه ..!

[javadt]

كدي كه شما گذاشتيد ابتدا توسط findwindow نام پنجره رو مي گيره و سپس با هندلش اون رو mininmize مي كنه
يك كد براتون مي زارم كه توسط اون مي تونيد تمام پنجره هه رو minimize كنيد

Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B

Private Sub Command1_Click()
' 77 is the character code for the letter 'M'
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

[pcdownload.bloghaa.com]

این هم روش دیگر برای Minimize کردن تمام پنجره ها:


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_COMMAND As Long = &H111
Private Const MIN_ALL As Long = 419
Public Sub MinimizeAll()
Dim lngHwnd As Long
lngHwnd = FindWindow("Shell_TrayWnd", vbNullString)
Call PostMessage(lngHwnd, WM_COMMAND, MIN_ALL, 0&)
End Sub