Ständig "Keine Rückmeldung", ewige Reaktionszeiten und durcheinander in den Titeln

[shorty.xs]

@Dennis.Unlimited

procedure OnPlayerEOFWarning(PlaylistIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
Item := PlaybackControl(PlaylistIndex).GetPlayer (PlayerIndex) .GetItem;
if (Item.GetItemType = pitMusic) then begin
  ShellExecuteHidden ('C:\tools\sfk.exe', 'udpsend 127.0.0.1 51235 "BANK-PRESS 1 4"');
  SystemLog ('C:\tools\sfk.exe udpsend 127.0.0.1 51235 "BANK-PRESS 1 4"');
end;

Dieses snippet sieht nicht nach dem aktuellen Template aus, das ist irgendwas relativ altes.

procedure OnPlayerEOFWarning(PlaylistIndex: integer; PlayerIndex: integer);
begin
  ShellExecute ('C:\ProgramData\mAirList\6.1\sfk174.exe', 'udpsend 192.168.51.103 3310 "LED2:ON"');
  SystemLog ('C:\ProgramData\mAirList\6.1\sfk174.exe udpsend 192.168.51.103 3310 "LED2:ON"');
end;

Ich habe das mal schnell aus diesem Faden hier abgeschrieben.