Очистить очередь для выполнения запланированных time-скриптов.

 

Синтаксис

procedure mClearAutoScriptsQueue;

 

Пример

Проверяется, есть ли в очереди какие-то тайм-скрипты. Если да, то выводится их количество и очередь очищается.

 

var
  iCount: integer;
begin
  iCount := mGetAutoScriptsQueueCount;
    if iCount > 0 then begin
      mClearAutoScriptsQueue;
      mLogScript('Queue cleared, ' + inttostr(iCount) + ' scripts deleted', '');
    end else mLogScript('Queue is empty', '');
end.

Результат работы скрипта

[17:02:44] (Log "mClearAutoScriptsQueue"): Queue is empty

[17:02:44] (Run "mClearAutoScriptsQueue"): Время выполнения скрипта: 2 мс

[17:02:44] (Run "mClearAutoScriptsQueue"): Скрипт выполнен успешно.

 
Ещё посмотреть

IntToStr

mGetAutoScriptsQueueCount

mLogScript