procedure SysCleanSetFilesList

procedure SysCleanSetFilesList

Previous pageReturn to chapter overviewNext page

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;

end.