[Amin_Mansouri]

درود
لطفا عنوان مناسب برای تایپک خود استفاده کنید.
یک تایمر بر روی فرم بزار ,رو 1 ثانیه ست کن
بعد جای

کد:

Untitled - Notepad

تایتل پنجره ای که میخوای MINIMIZE بشه رو بده
اگر میخوای عنوان پنجره ها رو هم ببینی اخر کد ME.CAPTION =TXT رو بزن
بفرمایید :  

کد:

'CODE BY WWW.PARSICODERS.COM BY AMIN MANSOURI
'FIND HANDLE AND MINIMIZE WINDOW
Private Const SW_MINIMIZE As Long = 6

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
  ByVal nCmdShow As Long) 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 Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Timer1_Timer()
Call FindHandleMin("Untitled - Notepad")

End Sub

Private Sub FindHandleMin(Amin As String)
Dim foreground_hwnd As Long
Dim txt As String
Dim length As Long
    foreground_hwnd = GetForegroundWindow()
    txt = Space$(1024)
    length = GetWindowText(foreground_hwnd, txt, Len(txt))
    txt = Left$(txt, length)
If txt = (Amin) Then
ret = ShowWindow((foreground_hwnd), SW_MINIMIZE)
End If
End Sub