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

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

Udalenie faylov

Mamed ©   (2004-05-24 10:17:00) 

kak udalit folder s faylami?FindFirst DeleteFile,Filenext ne xochetsya delat

---

SammIk   (2004-05-24 11:12:00) [1]

А какое ты еще удаление знаешь?
Писать посекторно на диск?))

---

ALS   (2004-05-24 11:00:00) [2]

uses ShellApi;
...
function DeleteDirectory(const DirName: string; Quiet: boolean = False): boolean;
var ShellInfo: TSHFileOpStruct;
begin
 ZeroMemory(@ShellInfo, SizeOf(ShellInfo));
 with ShellInfo do
 begin
   wFunc := FO_DELETE;
   if Quiet then
       fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
   pFrom := PChar(DirName + #0)
 end;
 Result := (ShFileOperation(ShellInfo) = 0)
end;

---

Mamed   (2004-05-24 10:38:00) [3]

Spasibo
Takoy kod bil menya prosto mnogo fayli a takoe udaleni eto vremya....

---

SammIk   (2004-05-24 10:32:00) [4]

На мыло заиди я тебе код послал.
Но сразу его не запускаи, а сначала изучи.
Поспешность черевата, лишением большеи части фаилов с дисков C & D

---

Mamed   (2004-05-24 10:25:00) [5]

etogo znayu no mne xochetsay takoe komanda:
del *.*

---

SammIk   (2004-05-24 10:22:00) [6]

}{04eT N0 ne |\/| O }|{ E T!!!!
В рекурсии попробуи,
сначало из самого верхнего коталока исчешь фаил, если папка, то
заходишь в нее и тд и тп, и все ок))

---

Наверх