So hab die neue Funktion eingebaut!
Delphi-Quellcode:
procedure BASS_WINAMPVIS_Playstate(State: Integer); stdcall;
begin
if DummyWinampHandle > 0 then
case (State) of
0: State := WINAMP_BUTTON4; //Stop
1: State := WINAMP_BUTTON2; //Play
3: State := WINAMP_BUTTON3; //Pause
end;
// Sende Ergebnis zu WinampVisWndProc
// DummyWinampHandle; WindowHandle des Dummy Winamp Fenster
SendMessage(DummyWinampHandle, WM_COMMAND, State, 0);
end;
wird übergeben VB.
Code:
Private Sub cmdPlay_Click()
hwndWinamp = FindWindow("Winamp v1.x", vbNullString)
If hwndWinamp <> 0 Then
BASS_WINAMPVIS_PlayState 1
lblStatus.Caption = "Playing"
End If
End Sub
Private Sub cmdStop_Click()
hwndWinamp = FindWindow("Winamp v1.x", vbNullString)
If hwndWinamp <> 0 Then
BASS_WINAMPVIS_PlayState 0
lblStatus.Caption = "Stop"
End If
End Sub
Und das rennt..
Kann jetzt auch aus den Winamp Plugins heraus die Visualisierung ausschalten.
Grüße