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

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

Как очистить папку Temp [D5, Win95/98]

Lagutin Anton ©   (2002-04-28 04:30:00) 

Please, подскажите как очистить папку Темр

---

Севостьянов Игорь   (2002-04-29 12:33:00) [1]

Это точно вот функции из unit FileUtil

GetSystemDir: string;
GetWindowsDir: string;
GetTempDir: string;

---

Song   (2002-04-28 14:59:00) [2]

2VEG © (28.04.02 11:21)
Зачем +"\TEMP\" приписал? :))))

---

VEG   (2002-04-28 11:21:00) [3]

function DeleteDir(Dir : string) : boolean;
Var
Found : integer;
SearchRec : TSearchRec;
begin
result:=false;
if IOResult<>0 then ;
ChDir(Dir);
if IOResult<>0 then begin
ShowMessage("Не могу войти в каталог: "+Dir); exit;
end;
Found := FindFirst("*.*", faAnyFile, SearchRec);
while Found = 0 do
begin
if (SearchRec.Name<>".")and(SearchRec.Name<>"..") then
if (SearchRec.Attr and faDirectory)<>0 then begin
if not DeleteDir(SearchRec.Name) then exit;
end else
if not DeleteFile(SearchRec.Name) then begin
ShowMessage("Не могу удалить файл: "+SearchRec.Name); exit;
end;
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
ChDir(".."); RmDir(Dir);
result:=IOResult=0;
end;

Для кнопочки:
var
s1 : array[0..254] of Char;
begin
GetWindowsDirectory(s1,255);
DeleteDir(s1+"\TEMP\");
end;

---

Song   (2002-04-28 09:59:00) [4]

В FAQ есть пример

---

Anatoly Podgoretsky   (2002-04-28 08:49:00) [5]

DeleteFile

---

Наверх