 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
 Verfasst am: 13.02.2008, 13:36 Titel: WinAmp Schnittstellen Experimente |
 |
|
Nach langem mal wieder da  und wollte mal fragen ob vielleicht schon jemand mit WinAmp experimentiert hat um zB den aktuell laufenden Track auszulesen und anzeigen lassen...
_________________
 |
|
| Nach oben |
|
 |
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 13.02.2008, 15:43 Titel: |
|
|
Nichts einfacher als das.... (VB-Code)
| Code: | 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
'Extrahiert den Titel das aktuellen Songs
Private Function GetSongName() As String
On Error Resume Next
Dim WA_hwnd As Long
WA_hwnd = FindWindow("Winamp v1.x", vbNullString)
If WA_hwnd = 0 Then GetSongName = "": Exit Function
Dim strTitle As String
strTitle = String(2048, " ")
GetWindowText WA_hwnd, strTitle, Len(strTitle)
strTitle = Left(strTitle, InStr(strTitle, "- Winamp") - 1)
If Int(strTitle) > 0 Then
strTitle = Mid(strTitle, InStr(strTitle, ".") + 1)
End If
GetSongName = Trim(strTitle)
End Function
|
Es ist übrigens immer die Fensterklasse Winamp v1.x, nicht dass du das jetzt durch 2 oder 5 ersetzt 
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 13.02.2008, 16:13 Titel: |
|
|
Danke, funktioniert perfekt
das mit dem INT(String) hab ich nur net wirklich vertstanden, hab ichs richtig uebersetzt?
| Code: |
#include "windows.bi"
FUNCTION GetSongName() AS STRING
DIM WA_hwnd AS LONG
WA_hwnd = FindWindow("Winamp v1.x", Null)
IF WA_hwnd = 0 THEN GetSongName = "": EXIT FUNCTION
DIM strTitle AS STRING
strTitle = STRING(2048, " ")
GetWindowText WA_hwnd, strTitle, LEN(strTitle)
strTitle = LEFT(strTitle, INSTR(strTitle, "- Winamp") - 1)
IF Len(strTitle) > 0 THEN
strTitle = MID(strTitle, INSTR(strTitle, ".") + 1)
END IF
GetSongName = TRIM(strTitle)
END FUNCTION
|
_________________
|
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 13.02.2008, 16:15 Titel: |
|
|
ja, sowohl VAL als auch INT sollte klappen.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
