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

Вниз

удаление файлов   Найти похожие ветки 

← →
IGSI   (2005-01-11 00:21) [0]

Добрый вечер. Помогите пожалуйста с такой проблемой, я хочу удалить группу определенных файлов. Как мне это сделать миную корзину. (пробовал через функцию Deletefile(), не входит).

---

← →
Anonimus ©   (2005-01-11 00:25) [1]

FindFirst+FindNext+

if FileExists(FileName) then
 if MessageDlg ("Do you really want to delete " + ExtractFileName(FileName) + "?"), mtConfirmation, [mbYes, mbNo], 0, mbNo) = IDYes then
   DeleteFile(FileName);

---

← →
Anatoly Podgoretsky ©   (2005-01-11 00:54) [2]

ShFileOperation

---

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

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

Наверх

Память: 0.46 MB
Время: 0.066 c