16.23.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, ExecuteSysClean, SysCleanAddFile, SysCleanGetFilesList, SysCleanSetFilesList