Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Aktywne okno
PAWKO




Typ: neutral
Postów: 42
Zarejestrowany: Mar 2003
Aktywne okno

Mam kod:
Private Sub Timer3_Timer()
Dim hwnd As Long, hWndLength As Long, hWndTitle As String, lastTitle As String
lastTitle = ""
    hwnd = GetForegroundWindow

    hWndLength = GetWindowTextLength(hwnd)
    hWndTitle = String$(hWndLength, 0)
   
    Temp = GetWindowText(hwnd, hWndTitle, hWndLength + 1)

    If hWndTitle = lastTitle Then
        Label1.Caption = "bez zman"
   
    ElseIf hWndTitle <> lastTitle Then

        Label1.Caption = hWndTitle
        Label3.Caption = lastTitle
        lastTitle = hWndTitle
       
    End If
   
End Sub

interval timera 0.5sek

Wg mojgo rozumowania gdy okno jest aktywne label powinien pokazywac "bez zmian". Jezeli okno aktywne sie zmieni label powinien na chwile pokazac jego nazwe a potem znow "bez zmian". Jest jednak tak ze label pokazuje caly czas nazwe aktywnego okna.

14-11-2004 22:43
Pokaż profil PAWKO  Wyślij email do PAWKO   
PAWKO




Typ: neutral
Postów: 42
Zarejestrowany: Mar 2003

Wystarczyło zadeklarowac zmienne w sekcji general declaration.

14-11-2004 23:33
Pokaż profil PAWKO  Wyślij email do PAWKO   
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1