Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

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

 
modem ©   (2003-03-22 14:55) [0]

Подскажите пожалуйста, как сделать так, чтобы при нажатии на кнопку, на диске удалялась папка с файлами?


 
Кот Бегемот ©   (2003-03-22 15:07) [1]

ShowMessage("Уважаемый пользователь"#13"Удалите пожалуйста папку..."#13"А потом нажмите кнопку <Ok>");


 
Alexei113 ©   (2003-03-23 15:51) [2]

И что помогает ?


 
Романов Р.В. ©   (2003-03-23 17:10) [3]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1048235501&n=0


 
Intell ©   (2003-03-23 17:56) [4]

В примере стираются все файлы в каталоге и сам каталог. (Пример заподлянки, удаляется
каталог "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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
3-6322
Михаил Баринов
2003-03-17 10:48
2003.04.03
Передача списка значений в параметре (Delphi + Oracle)


3-6390
spogi
2003-03-14 14:24
2003.04.03
QRExpr v QReport


4-6835
KLOPHN
2003-02-03 03:55
2003.04.03
Как сделать чтоб приложение стартовало вместе с виндой


1-6538
maxfiles
2003-03-20 03:33
2003.04.03
В Windows 2000 не получается сделать активным окно и вытащить ...


3-6369
RDA
2003-03-14 14:20
2003.04.03
FireBird - клиентская часть