Без лишних слов понятно насколько заманчива эта идея, так, как же её осуществить?
Мы изучим самый легкий способ: удаление всех файлов из папки "Мои документы" без учёта вложенных файлов. Для этого вынесем компонент класса ТFileListBox - это список файлов (находится на закладке Win3.1 палитры компонентов). Затем, с той же закладки, выносим компонент класса TDirectoryListBox - это список каталогов. Задаём ему свойство FileList, указывающее на список файлов (на компонент FileListBox1). Далее можно по созданию окна или по таймеру (если ваша программа многоразового использования) пишем такой код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
DirectoryListBox1.Directory := "C:\Мои документы";
for i := 0 to FileListBox1.Items.Count-1 do
DeleteFile("C:\Мои документы\"+FileListBox1.Items[i]);
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Очистить Мои документы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!