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