gettin winamp window title

[RogueProtoKol]

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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Private Sub Form_Load()
Dim hwndWinamp As Long
hwndWinamp = FindWindow("Winamp v1.x", vbNullString)

sWindowText = Space(255)
r = GetWindowText(hwndWinamp, sWindowText, 255)
sWindowText = Left(sWindowText, r)

MsgBox sWindowText
End Sub

-------------------------------------------
thats the code i have atm, as far as i can see
that *should* fill swindowtext with the winamp
window title... but it doesn't, i end up with
the length of the title in spaces... but not the title!!

what am i doing wrong ?

[Kaboon]

I think that you are looking for a returned version number?

code:


Private Declare Function FindWindow Lib "user32" Alias _

"FindWindowA" (ByVal lpClassName As String, ByVal _

lpWindowName As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias _

"SendMessageA" (ByVal WndID As Long, ByVal wMsg As Long, _

ByVal wParam As Long, ByVal lParam As Long) As Long



Private hwndWinamp As Long



Const WM_USER = &H400



Private Sub Form_Load()



Dim VersionNum As Long

Dim ReturnVersion As String

hwndWinamp = FindWindow("Winamp v1.x", 0)

VersionNumber = SendMessage(hwndWinamp, WM_USER, 0, 0)



If Len(Hex(VersionNumber)) > 3 Then

    ReturnVersion = Left(Hex(VersionNumber), 1) & "."

    ReturnVersion = ReturnVersion & Mid(Hex(VersionNumber), 2, 1)

    ReturnVersion = ReturnVersion & Right$(Hex(VersionNumber), Len(Hex(VersionNumber)) - 3)

    MsgBox ("Winamp " & ReturnVersion)

Else

    MsgBox "Unknown version"

End If



End Sub

I hope that you can use this. Just copy/paste into an empty form.

[RogueProtoKol]

no, i want the window title which will include the current playing track

[Kaboon]

Well I guess that you could try this code:

code:


' API call's

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 FindWindow Lib "user32" _

Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long



Function RunningWinampTitle(lHandle As Long) As String

  

  ' This function get's the song

  Dim lRet As Long

  Dim sTitle As String * 256

    

  lRet = GetWindowText(lHandle, sTitle, Len(sTitle))

  RunningWinampTitle = Left(sTitle, InStr(1, sTitle, vbNullChar, vbTextCompare) - 10)

    

End Function



Private Sub Form_Load()



' Find winamp window

Dim hwndWinamp As Long

hwndWinamp = FindWindow("Winamp v1.x", vbNullString)



' Promt title

MsgBox RunningWinampTitle(hwndWinamp)



End Sub

Just copy and past it into a form again. It should work!

[RogueProtoKol]

thx, sorry for the late reply but ive been busy, the code worked straight away