لعرض البرامج الموجودة في الذاكرة ومقبض التحكم بها(بالفيجول بسيك)

الكاتب : الأنيق   المشاهدات : 379   الردود : 1    ‏2003-08-03
      مشاركة رقم : 1    ‏2003-08-03
  1. الأنيق

    الأنيق عضو

    التسجيل :
    ‏2003-07-11
    المشاركات:
    34
    الإعجاب :
    0
    [ALIGN=JUSTIFY]Module اكتب التالي في موديل

    Private Declare Function GetWindowLong _
    Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex _
    As Long) As Long

    Declare Function EnumWindows Lib _
    "user32" (ByVal lpEnumFunc As Long, _
    ByVal lParam As Long) As Boolean

    Declare Function GetWindowText Lib _
    "user32" Alias "GetWindowTextA" _
    (ByVal hwnd As Long, ByVal _
    lpString As String, ByVal cch As Long) As Long

    Declare Function GetWindowTextLength _
    Lib "user32" Alias "GetWindowTextLengthA" _
    (ByVal hwnd As Long) As Long
    Const GWL_STYLE = (-16)

    Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim sSave As String, Ret As Long
    Ret = GetWindowTextLength(hwnd)
    sSave = Space(Ret)
    GetWindowText hwnd, sSave, Ret + 1
    a = GetWindowLong(hwnd, GWL_STYLE)
    If a = 399441920 Or a = 114229248 Or _
    a = 382664704 Or a = 382664704 Then _
    Form1.List1.AddItem sSave & " " & hwnd

    EnumWindowsProc = True
    End Function

    List ضع في الفورم اداة

    ادخل التالي في حدث تحميل الفورم


    Private Sub Form_Load()
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
    End Sub

     
  2.   مشاركة رقم : 2    ‏2003-08-03
  3. مُجَاهِد

    مُجَاهِد قلم ماسي

    التسجيل :
    ‏2003-05-11
    المشاركات:
    14,043
    الإعجاب :
    0
    رائع :: أخي الأنيق...

    وتحياتي لك..
     

مشاركة هذه الصفحة