Главная страница
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.015 c
3-14940
HazMat
2002-12-13 10:23
2003.01.06
SQLWNTM.DLL


3-14968
Worder
2002-12-12 08:36
2003.01.06
Как программно создать System DSN для доступа к MSSQL2000?


1-14994
jfo
2002-12-24 10:16
2003.01.06
Full Screen но не перекрывая таск бар...


4-15375
Pat
2002-11-17 14:06
2003.01.06
Как можно удалить ScrollBar ы у dbGrid?


14-15232
SZap
2002-12-15 13:18
2003.01.06
Как узнать на каком языке написана программа?