Главная страница
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
7-15325
Wizz
2002-10-28 05:09
2003.01.06
Подскажите, как эти несколько ASM команд вставить в Д6?


14-15310
hatchy
2002-12-18 15:42
2003.01.06
Помогите мне создать splashform у!


1-15157
Андрей Бочкарев
2002-12-20 22:02
2003.01.06
DOS-печать из Delphi


1-15108
trotski
2002-12-23 06:11
2003.01.06
Delphi vs WinAPI


4-15365
Stainer
2002-11-19 16:36
2003.01.06
Клик по popup menu