So,
var heute: TDateTime;
stunde :Integer;
begin
heute:= now;
stunde:= (StrToInt(FormatDateTime('HH', heute)))+ 1;
CurrentPlaylist.LoadFromM3U('C:/'+FormatDateTime('DDMMYY-', heute)+IntToStr(stunde)+ '.m3u', false);
end.
CurrentPlaylist.LoadFromM3U('C:/'+FormatDateTime('DDMMYY-', heute)+IntToStr(stunde)+ '.m3u', false);
rot: Pfad
Grün: true = an playlist anhängen
false = alte playlist ersetzen
testet es mal ausgiebeg ;)
grüße, michi