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');

 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;

end.