Probleme mit Bass_Vis

[BassFan]

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