Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.30;
Скачать: CL | DM;

Вниз

Удаление файлов   Найти похожие ветки 

 
Rammst   (2002-05-19 11:02) [0]

Hello ALL! Как, например, из папки Мои документы удалить все файлы(не помещая в корзину)?


 
}{enon ©   (2002-05-19 12:56) [1]

procedure TForm1.Button1Click (Sender: TObject);
var
fa: TSearchRec;
f: File;
begin
if FindFirst("C:\Мои документы\",faAnyFile,fa)=0 then
begin
assignfile(f,fa.Name);
erase(f);
while findnext(fa)<>0 do
begin
assignfile(f,fa.Name);
erase(f);
end;
findclose(fa);
end;
end;

В принципе должно работать, хотя FindFirst может настраиваться подругому.


 
Rammst   (2002-05-19 14:07) [2]

Не работает
HELP!!!!!!!!!!!


 
Song ©   (2002-05-19 17:13) [3]

В FAQ есть.


 
sizmrebi ©   (2002-05-20 09:22) [4]

Deletes all items from a folder without deleting the folder itself.

Syntax

HRESULT EmptyFolder(ULONG ulUIParam, LPMAPIPROGRESS lpProgress, ULONG ulFlags)




Страницы: 1 вся ветка

Текущий архив: 2002.05.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
3-97189
DPetrovich
2002-05-08 12:25
2002.05.30
Проблема с кодировкой


6-97380
новенький в Делфи
2002-03-20 00:41
2002.05.30
Соединение с интернетом


1-97280
VID
2002-05-17 16:48
2002.05.30
Лезем в облась памяти, выделенной для чужого приложения


4-97461
ZOND
2002-03-27 00:57
2002.05.30
Hook без DLL-Это возможно


4-97459
[HDD]John
2002-03-28 13:52
2002.05.30
Исправляюсь: имитация нажати КЛАВИШИ ТАВ