AVZ 5. Руководство пользователя
×
Меню
Индекс

16.21.5. procedure SysCleanSetFilesList

procedure SysCleanSetFilesList(AFileList : TStringList);
 
Заменяет текущий список удаленных файлов (сформированный в ходе удаления файлов в скрипте и вызовов SysCleanAddFile) на массив строк AFileList. Массив строк должен быть предварительно инициализирован и заполнен. Данная функция может применяться в случае реализации собственных процедур удаления файлов или совместно с SysCleanGetFilesList.
 
Совместимость:
Версия 4.34 и выше
 
Пример:
 
var
  FileList : TStringList;
  i : integer;
begin
  // Явное добавление файлов в список
  SysCleanAddFile('c:\test1.txt');
  SysCleanAddFile('c:\trojan.txt');
  SysCleanAddFile('c:\test1.txt');
  // Неявное добавление файлов в список
  DeleteFile('c:\trojan1.txt');
  // Запрос списка
  FileList := TStringList.Create;
  SysCleanGetFilesList(FileList);
  i := 0;
  while i < FileList.Count do begin
    if pos('test', LowerCase(FileList[i])) > 0 then
       FileList.Delete(i)
    else 
       inc(i);
  end;
  for i := 0 to FileList.Count-1 do
     AddToLog(FileList[i]);
 
  SysCleanSetFilesList(FileList);
  FileList.Free;
    // Чистка
  ExecuteSysClean;
end.
 
В примере использовались: AddToLog, DeleteFile, ExecuteSysCleanSysCleanAddFile, SysCleanGetFilesList, SysCleanSetFilesList