Aktuelle Spielzeit vom Titel in .txt

[Tondose]

Jetzt ja:

const
  PFAD  = 'C:\path\to\file\';
  DATEI = 'Spieldauer.txt';

var 
  pi:  IPlaylistItem;
  sl:  IStrings;
  src: IAudioSource;
  
procedure WriteText(Text: string);
begin
  sl := Factory.CreateStrings;
  sl.Add(Text);
  sl.SaveToFile(PFAD + DATEI);
end;

procedure OnTimer;
begin
  src := CurrentPlaylist.GetPlayer(CurrentPlaylist.GetPlayerOfItem(pi)).
    GetSource;
  if src <> nil then
    WriteText(FormatDateTime('nn:ss', src.GetPosition / 86400));
end;

procedure OnPlayerStart(PlaylistIndex: integer; PlayerIndex: integer; 
  Item: IPlaylistItem);
begin
  pi := Item;
  EnableTimer(1000);
end;

procedure OnPlayerStop(PlaylistIndex: integer; PlayerIndex: integer; 
  Duration: TTimeValue; Item: IPlaylistItem);
begin
  if Item = pi then
    DisableTimer;
end;

begin
end.