Возврат к воспроизведению после выполнения обработки по расписанию

var
  MediaFolder: THmsScriptMediaItem; nCounter: Integer;
begin
  MediaItem := HmsFindMediaFolder(mfVideoCollectionsItemID, 'Test');
  if (MediaFolder <> nil) and MediaFolder.HasChildItems then begin
    nCounter := MediaFolder[mpiTrack];                                     // Получаем значение счётчика очерёдности
    HmsPlayToGroup(MediaFolder.ChildItems[nCounter], 'GroupNoOne', false); // Запуск воспроизведения очередного видео из папки
    nCounter := nCounter + 1;                                              // Увеличиваем счётчик
    if nCounter >= MediaFolder.ChildCount then nCounter := 0;              // Если значение счётчика больше количества видео - сбрасываем счётчик
    MediaFolder[mpiTrack] := nCounter;                                     // Запоминаем значение счётчика в свойствах папки
  end;
end.

var
  MediaFolder, MediaItem, VideoFolder: THmsScriptMediaItem; n: Integer;
begin
  // Находим папку с видео, после которых будет запускаться заставка
  VideoFolder := HmsFindMediaFolder(mfVideoCollectionsItemID, 'Test');
  
  // Находим папку с фото, которые будут отображаться на разных устройствах
  MediaFolder := HmsFindMediaFolder(mfImageAlbumsItemID, '-Showroom');
  
  // Проверяем, есть ли папка с фото и точно ли произошёл запуск этого скрипта
  // после остановки наших видео (проверяем, является ли родительский элемент
  // текущего элемента той папкой, которая содержит наши видео)
  if (MediaFolder <> nil) and MediaFolder.HasChildItems and (CurrentMediaItem.ItemParent = VideoFolder) then begin
  
    // В цикле обходим все картинки и запускаем их на показ устройствам
    // по MAC-адресу, указанному в комментариях к картинке
    for n := 0 to MediaFolder.ChildCount - 1 do begin
      MediaItem := MediaFolder.ChildItems[n];
      HmsPlayToDevice(MediaItem, MediaItem[mpiComment], false)
    end;
    
  end;
  
end.

var
  MediaFolder: THmsScriptMediaItem; nCounter: Integer;
begin
  //MediaFolder := HmsFindMediaFolder(mfVideoPodcastsFolderItemID, '-Showroom');
  MediaFolder := HmsFindMediaFolder(mfVideoCollectionsItemID, 'Test');
  if (MediaFolder <> nil) and MediaFolder.HasChildItems then begin
    nCounter := MediaFolder[mpiTrack];                                     // Получаем значение счётчика очерёдности
    HmsPlayToGroup(MediaFolder.ChildItems[nCounter], 'GroupNoOne', false); // Запуск воспроизведения очередного видео из папки
    nCounter := nCounter + 1;                                              // Увеличиваем счётчик
    if nCounter >= MediaFolder.ChildCount then nCounter := 0;              // Если значение счётчика больше количества видео - начинаем сначала
    MediaFolder[mpiTrack    ] := nCounter;                                 // Запоминаем значение счётчика в свойствах папки
    MediaFolder[mpiTimeStart] := DateTimeToTimeStamp1970(Now, false);      // Запоминаем TimeStamp старта показа видео
  end;
end.

  // Находим папку с видео, после которых будет запускаться заставка
  VideoFolder := HmsFindMediaFolder(mfVideoCollectionsItemID, 'Test');
  //VideoFolder := HmsFindMediaFolder(mfVideoPodcastsFolderItemID, '-Showroom');
  
  if VideoFolder<> nil then begin
    n := DateTimeToTimeStamp1970(Now, false) - StrToIntDef(VideoFolder[mpiTimeStart], 0);
    if n < 30 then Exit; // Если прошло менее 30 сек - выходим, не срабатываем.
  end;
  ...

Const VideosDuration = 30; // Длительность видео по-умолчанию (через сколько секунд будут включены заставки)

///////////////////////////////////////////////////////////////////////////////
// Отображение заставок (фото) на устройствах (вызывается таймером "Timer4GroupNoOne")
Procedure ShowPictures();
Var
  MediaFolder, MediaItem: THmsScriptMediaItem; n: Integer;
Begin
  HmsExecuteByTimer("Timer4GroupNoOne", "", 0); // Сброс таймера
  //HmsLogMessage(1, "Сработала функция отображения заставок");
  
  // Находим папку с фото, которые будут отображаться на разных устройствах
  MediaFolder := HmsFindMediaFolder(mfImageAlbumsItemID, '-Showroom');
  
  if (MediaFolder <> nil) and MediaFolder.HasChildItems then begin
    // В цикле обходим все картинки и запускаем их на показ устройствам
    // по MAC-адресу, указанному в комментариях к картинке
    for n := 0 to MediaFolder.ChildCount - 1 do begin
      MediaItem := MediaFolder.ChildItems[n];
      HmsPlayToDevice(MediaItem, MediaItem[mpiComment], false)
    end;
    
  end;
  
End;

///////////////////////////////////////////////////////////////////////////////
//                     Г Л А В Н А Я   П Р О Ц Е Д У Р А                     //
Var
  MediaFolder, MediaItem: THmsScriptMediaItem; nCounter, nTime: Integer;
Begin
  // Находим папку с видео, которые мы будем запускать
  //MediaFolder := HmsFindMediaFolder(mfVideoPodcastsFolderItemID, '-Showroom');
  MediaFolder := HmsFindMediaFolder(mfVideoCollectionsItemID, 'Test');
  if (MediaFolder <> nil) and MediaFolder.HasChildItems then Begin
    nCounter  := MediaFolder[mpiTrack];                           // Получаем значение счётчика очерёдности
    MediaItem := MediaFolder.ChildItems[nCounter];                // Получаем элемент очередного видео
    HmsPlayToGroup(MediaItem, 'GroupNoOne', false);               // Запуск воспроизведения очередного видео из папки
    nCounter := nCounter + 1;                                     // Увеличиваем счётчик
    if nCounter >= MediaFolder.ChildCount then nCounter := 0;     // Если значение счётчика больше количества видео - начинаем сначала
    MediaFolder[mpiTrack] := nCounter;                            // Запоминаем значение счётчика в свойствах папки
    nTime := HmsTimeConvert(MediaItem[mpiTimeLength]);            // Получаем длительность видео в секундах
    if nTime = 0 then nTime := VideosDuration;                    // Если длительности видео нет, то по-умолчанию 30 сек
    HmsExecuteByTimer("Timer4GroupNoOne", "ShowPictures", nTime); // Запускаем таймер, который через n секунд вызовет функцию "ShowPictures"
  End;
End.