| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DeleteFile [D7, WinXP]

Anar ©   (2002-11-18 23:33:00) 

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


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


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


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


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

---

savva   (2002-11-19 09:36:00) [1]

сделай так

//удаляет все файлы в каталоге
//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

---

ZEE   (2002-11-19 00:27:00) [2]

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

---

Наверх