Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.012 c
1-15159
Студент
2002-12-19 23:45
2003.01.06
непонятный глюк


14-15221
·•·€c€p·•·
2002-12-14 01:29
2003.01.06
Прога!


1-15049
Дмитрий К.К.
2002-12-23 08:16
2003.01.06
Баг в Delphi 5


1-15055
vilfred
2002-12-24 14:37
2003.01.06
народ, лыжы уже не едут, как это сделать???


7-15331
zalviko
2002-10-27 14:44
2003.01.06
Вопрос