!=====================================================================================
! Класс создания ярлыков.
! Вячеслав Черников, г.Рязань, 2022 г.
!=====================================================================================

!=====================================================================================
! Класс: создание ярлыков.
! Пример вызова.
!
! FsSC   FsShortCut
!
! FsSC.Init('1.vbs')            !инициализация класса
! FsSC.Make(1,'','','','')      !создание ярлыка
! FsSC.Kill                     !уничтожаем класс
!
!=====================================================================================

QueueBufSCType  Queue, type     !буфер для формирования скрипта
BufStr    STRING(1024)          !строка буфера
end

FsShortCut     CLASS,TYPE,MODULE('FsShortCut.CLW'),LINK('FsShortCut.CLW')
Active         BYTE,       PRIVATE          !флаг активности
FileNameScript STRING(128)                  !файл для скрипта на vbscript
BufPoint       LONG                         !указатель в буфере
BufPointMax    LONG                         !максимальное значение указателя

QueueBuf       &QueueBufSCType              !буфер для скрипта  

Init            PROCEDURE(STRING)           !инициализация объекта
Kill            PROCEDURE                   !уничтожение объекта
Destruct        PROCEDURE                   !деструктор

Make            PROCEDURE (BYTE,STRING,STRING,STRING,STRING) !сформировать ярлык
AddScriptInt    PROCEDURE (STRING), PROTECTED   !добавить строку к скрипту (внутренняя)
MakeScript      PROCEDURE                       !сформировать скрипт
RunScript       PROCEDURE                       !выполнить скрипт
             END