Домашний медиа-сервер (UPnP, DLNA, HTTP)

Code: Select all

var
  dtLastPlaybackTime: TDateTime;
begin
  if (CurrentMediaItem <> nil) and (CurrentMediaItem.MediaType = mtVideo) then begin
    if (Pos('[Просмотрен]', CurrentMediaItem.Properties[mpiTitle]) = 0) then begin
      if VarToStr(CurrentMediaItem.Properties[mpiLastPlaybackTime]) <> '' then try
        dtLastPlaybackTime := CurrentMediaItem.Properties[mpiLastPlaybackTime];
        if (Now - dtLastPlaybackTime) > EncodeTime(0, 1, 0, 0) then // 1 минута
          CurrentMediaItem.Properties[mpiTitle] := '[Просмотрен] ' + CurrentMediaItem.Properties[mpiTitle]
      except end    
    end    
  end    
end.