Модуль управления программой TVR - часть 2

 function FullTimeRec  : string ; //-- Возвращает продолжительн. записанного файла

 function LevelName    : string ; //-- Возвращ. имя регулируемого уровня (регулятора)

 function ExecuteCom   : string ; //-- Возвращ. информ. о выполненной команде(как в логе TVR)

 function ControlRec   : string ; //-- Возвращ. информ. о процессе записи в реальном времени

 function ControlPlay  : string ; //-- Возвращ. информ. о процессе  воспроизведен.

 function User         : string ; //-- Возвращает имя пользователя (профиль) запустившего TVR

 function ControlCommand : integer ; //-- Возвращает принятую команду управления

 function ControlLevel   : integer ; //-- Возвращает уровень позиции регулятора

 function ControlSent    : integer ; //-- Возвращает общее кол-во принятых команд

//-------------------------------------------------------------------------------

     -- Для удобства использования команд определенны след. константы --  

  STOP             : integer =  0 ;   //-- Стоп запись

  REC              : integer =  1 ;   //-- Старт запись

  PLAY             : integer =  2 ;   //-- Старт воспроизведение

  BACK             : integer =  3 ;   //-- Перемотка назад

  STEP             : integer =  4 ;   //-- Перемотка вперёд

  NEXTFILE         : integer =  5 ;   //-- Переход к следующему файлу

  PREV             : integer =  6 ;   //-- Переход к предидущему файлу

  STOPPL           : integer =  7 ;   //-- Стоп воспроизведение

  SAVEAS           : integer =  8 ;   //-- Открыть диалог "Сохранить как..."

  CLOSETVR         : integer =  9 ;   //-- Закрыть программу TVR

  HIDETVR          : integer = 10 ;   //-- Полностью скрыть окно программы !

  SHOWTVR          : integer = 11 ;   //-- Показать окно программы если оно скрыто

  MINIMIZET        : integer = 12 ;   //-- Свернуть окно в панель задач

  NORMAL           : integer = 13 ;   //-- Развернуть окно нормально

  LEFTON           : integer = 14 ;   //-- Воспроизводить только левый канал