Başlangıç > Kodlar > Visual Basic 6 ile Windows’ta açık olan pencereler

Visual Basic 6 ile Windows’ta açık olan pencereler

22/12/2010 Yorum bırakın Go to comments


Windowsta açık olan pencerelerin ismini listbox'a ekleyen program


Açıklama: Form üzerine bir tane Listbox1 ve Timer1 ekleyin. Timer in intervalını 1 yapın. Kodları olduğu gibi kod alanına yapıştırın. Başka bir pencere açın ve o anki aktif pencerenin isimlerini sırayla Listbox'a yazdırır..

 

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function GetParent Lib "user32" _
(ByVal hwnd As Long) As Long

Private Declare Function GetWindowTextLength Lib "user32" _
Alias "GetWindowTextLengthA" (ByVal hwnd 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

Public Function GetActiveWindow(ByVal ReturnParent As Boolean) As Long
Dim i As Long
Dim j As Long
i = GetForegroundWindow
If ReturnParent Then
Do While i <> 0
j = i
i = GetParent(i)
Loop
i = j
End If

GetActiveWindow = i
End Function

Public Function GetWindowTitle(ByVal hwnd As Long) As String
Dim l As Long
Dim s As String

l = GetWindowTextLength(hwnd)
s = Space(l + 1)

GetWindowText hwnd, s, l + 1

GetWindowTitle = Left$(s, l)
End Function

Private Sub Timer1_Timer()
If (GetWindowTitle(GetActiveWindow(True)) <> "") And (List1.List(List1.ListCount - 1) <> GetWindowTitle(GetActiveWindow(True))) Then List1.AddItem GetWindowTitle(GetActiveWindow(True))
End Sub


TD Software


Kategoriler:Kodlar Etiketler:, , , , , , , , , , , , ,
  1. TD Software
    31/12/2010, 10:37

    ACEMITEKNIKER :

    KOD BENDE ÇALIŞMADI, KEŞKE KODLARDA AÇIKLAMA SATIRLARI EKLENSEYDİ, EN AZINDAN KENDİ PROGRAMLARIMIZA UYARLARDIK :(

    YİNE DE EMEĞİNİZ İÇİN TEŞEKKÜRLER

    Kodlar çalışıyor. Açıklama satırı eklendi

    Beğen

  1. No trackbacks yet.

Yorum bırakın