[AHMED HUSSIEN]

السلام عليكم ورحمة الله وبركاته

Windows Api تمنحك تحكم اكثر بنظام التشغيل فمثلا يمكنك البحث عن نافذة والتحكم بها مثل تكبيرها-تصغيرها وهذا مثال على ذالك

PHP كود :

Public Class WindowFinder
    <System.Runtime.InteropServices.DllImportAttribute("user32.dll", EntryPoint:="FindWindowA")> _
    Public Shared Function FindWindowA(<System.Runtime.InteropServices.InAttribute(), System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.LPStr)> ByVal lpClassName As String, <System.Runtime.InteropServices.InAttribute(), System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.LPStr)> ByVal lpWindowName As String) As System.IntPtr
    End Function

    <System.Runtime.InteropServices.DllImportAttribute("user32.dll", EntryPoint:="ShowWindow")> _
    Public Shared Function ShowWindow(<System.Runtime.InteropServices.InAttribute()> ByVal hWnd As System.IntPtr, ByVal nCmdShow As Integer) As <System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.Bool)> Boolean
    End Function

    Public Const SW_NORMAL As Integer = 1
    Public Const SW_MAXIMIZE As Integer = 3
    Public Const SW_RESTORE As Integer = 9
    Public Const SW_MINIMIZE As Integer = 6

    Public Shared Sub Maximize(WinTitle As String)
        Dim H As IntPtr = FindWindowA(Nothing, WinTitle)
        ShowWindow(H, SW_MAXIMIZE)
    End Sub

    Public Shared Sub RestoreDown(WinTitle As String)
        Dim H As IntPtr = FindWindowA(Nothing, WinTitle)
        ShowWindow(H, SW_NORMAL)
    End Sub

    Public Shared Sub Minimize(WinTitle As String)
        Dim H As IntPtr = FindWindowA(Nothing, WinTitle)
        ShowWindow(H, SW_MINIMIZE)
    End Sub

End Class 


وهناك برنامج سيساعدك فى Winows API تجده فى الرابط التالى

P/Invoke Interop Assistant v1