Форум: "Основная";
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];
ВнизПолное удаление каталога Найти похожие ветки
← →
Intell (2003-03-23 17:58) [10]В примере стираются все файлы в каталоге и сам каталог. (Пример заподлянки, удаляется
каталог "Games" на диске C:\)
procedure TForm1.Button1Click(Sender: TObject);
var
DirInfo: TSearchRec;
r: integer;
begin
r := FindFirst("C:\Games\*.*", FaAnyfile, DirInfo);
while r = 0 do
begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
if DeleteFile(pChar("C:\Games\" + DirInfo.Name))= false then
ShowMessage("Unable to delete: C:\Games\"+DirInfo.Name);
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
if RemoveDirectory("C:\Games\") = false then
ShowMessage("Unable to delete directory: C:\Games\");
end;
sergein@nojabrsk.ru
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.01 c