Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как програмно удалить все файлы с расширением .tmp [D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

xoxol © (2003-03-06 22:12:00)
Как програмно удалить все файлы с расширением .tmp чтобы не в корзину а навсегда
плиз дайте код на делфи6
кто выручит получт красивый ICQ семизнак(типа как у меня)
стучитесь на асю 3777744
братва это очень срочно плиззззззз выручайте

Akim2 (2003-03-07 13:26:00) [1]
procedure FreeTmp;
var
Found : integer;
SearchRec : TSearchRec;
str : string;
begin
str := Copy(GetTEMPDir, 1, Length(GetTEMPDir) - 1);
ChDir(str);
if IOResult <> 0 then exit;
Found := FindFirst("*.tmp", faAnyFile, SearchRec);
while Found = 0 do begin
if (SearchRec.Name <> ".") and (SearchRec.Name <> "..") then begin
if (SearchRec.Attr and faDirectory) = 0 then begin
DeleteFile(SearchRec.Name);
end;
end;
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;

Anatoly Podgoretsky (2003-03-07 10:10:00) [2]
xoxol © (06.03.03 23:25)
Можно и к 9, но номер у тебя слишком длинный

stranger71 (2003-03-07 09:52:00) [3]
В библиотеке RX-Lib, модуль FileUtils, ф-ция DeleteFiles("*.tmp");

Suntechnic (2003-03-07 07:32:00) [4]
>Pat ©
Я уже предвижу следующий вопрос:
Почему у меня после Close приложение закрывается и до DeleteFile не дорходит?:)

Pat (2003-03-07 02:20:00) [5]
FindFirst/Next/Close+DeleteFile()

xoxol (2003-03-06 23:25:00) [6]
ну ответь на вопрос хотябы
плиззззззззз
мне завтра к 9 утра нужна прога

Anatoly Podgoretsky (2003-03-06 22:59:00) [7]
Ворованный что ли, а какая разница сколько цифр, если будет 6 тогда это супер чувак.
Не хочу быть таким крутым чуваком, а то еще прибьют из за этих цифр.

xoxol (2003-03-06 22:36:00) [8]
неверю что никто незнает
вам что трудно ctrl+c ctrl+v жмануть
плиз очень надо

Наверх

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