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

Вниз

DeleteFile   Найти похожие ветки 

← →
Anar ©   (2002-11-18 23:33) [0]

Почему если написать


DeleteFile("C:\*.bmp");


То все файлы на диске C: с расширенем bmp не удаляются, хотя если написать


DeleteFile("C:\image1.bmp");


То всё OK. Разве звездочка не означает любое имя?

---

← →
ZEE ©   (2002-11-19 00:27) [1]

Насколько знаю "*" - это только для поиска

---

← →
savva ©   (2002-11-19 09:36) [2]

сделай так

//удаляет все файлы в каталоге
//HWindow : хендл окна, к которому будет привызано окно, отображающее прогрес удаления
//DirName: имя директории
procedure DeleteFiles(HWindow : HWND;DirName: string);
var
SHF: TSHFileOpStruct;
lastDir : string;
begin
lastDir:=GetCurrentDir;
SetCurrentDir(DirName);
FillChar(SHF, sizeof(SHF), #0);
with SHF do begin
Wnd := HWindow;
wFunc := FO_DELETE;
pFrom := "*.*";//в твоем случае сделай "*.bmp"
pTo:="";
fFlags := FOF_NOCONFIRMATION; // если не нужен индикатор прогреса - добавь or FOF_SILENT
end;
SHFileOperation(SHF);
SetCurrentDir(lastDir);
end;

в секцию uses добавь модуль ShellApi

---

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

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

Наверх

Память: 0.47 MB
Время: 0.015 c