Script Stop/Pause im Zusammenhang mit Lautstärke

Deutsch / German Scripts
6

Probiere es hiermit:

procedure OnExecuteCommand(Command: string);
var
  Level: single;
begin
  if (Command = 'PLAYER 1-1 AUS') then
  begin
    Level := trunc(CurrentPlaybackControl.GetPlayer(0).GetVolume);
    if (Level = -200) then
      ExecuteCommand('PLAYER 1-1 STOP')
    else
      ExecuteCommand('PLAYER 1-1 PAUSE');
  end
  else if (Command = 'PLAYER 1-2 AUS') then
  begin
    Level := trunc(CurrentPlaybackControl.GetPlayer(1).GetVolume);
    if (Level = -200) then
      ExecuteCommand('PLAYER 1-2 STOP')
    else
      ExecuteCommand('PLAYER 1-2 PAUSE');
  end;
end;

begin
end.

Gefundene Grüße

TSD

1 Like