исходник удаления директории

[Life_Master]

удаления директории, например, С:\Windows\, в вложенными в нее файлами.
SOS!!!

[Terran]

Function MyRemoveDir(SDir: String): Boolean;
Var
IIndex: Integer;
SearchRec: TSearchRec;
SFileName: String;
Begin
Result:=False;
SDir:=SDir + '\*.*';
IIndex:=FindFirst(SDir, FaAnyFile, SearchRec);
While IIndex=0 Do
Begin
SFileName:=ExtractFileDir(sDir)+'\'+SearchRec.Name;
If SearchRec.Attr = FaDirectory Then
Begin
If (SearchRec.Name <> '' ) And (SearchRec.Name <> '.') And
(SearchRec.Name <> '..') Then
MyRemoveDir(SFileName);
End
Else
Begin
If SearchRec.Attr <> FaArchive Then
FileSetAttr(SFileName, FaArchive);
If Not DeleteFile(SFileName) Then
End;
IIndex:=FindNext(SearchRec);
End;
FindClose(SearchRec);
RemoveDir(ExtractFileDir(SDir));
Result:=True;
End;

[Stilet]

С:\Windows\

Ну и аппетиты у вас, сударь.... А косточкой не боимся подавится?

[Terran]

С:\Windows\

Верно. Как-то не подумал.

[Life_Master]

компилятор ругается =(

[Life_Master]

Сообщение от Stilet

Ну и аппетиты у вас, сударь.... А косточкой не боимся подавится?

это для примера =) что первое в голову пришло =)
вообще надо снести из program files программу

если есть какая то правильная мысль - прочитаю внимательно =)

[Terran]

компилятор ругается =(

Это предупреждения компилятора. Конечно на которые стоило обратить внимание, но код и так работает.
Life_Master , в посте №4 я имею в виду, что у Вас директория виндоус и она не сможет удалиться т.к. в ней будут использоваться файлы.

[Life_Master]

но все равно код поубивает файлы которые не используются и в итоге останется десяток-другой файлов, которые не смогут обеспечить работоспособность винды

[Stilet]

http://yandex.ua/yandsearch?date=&te...nd=3002&lr=187

[Life_Master]

3 вопроса возникло:
1. Не понял по коду, какая директория стоит по умолчанию ? та в которой находится курсор ?
2. Можно ли указать директорию руками, в виде переменной или константы ?
3. при компиле ехе-шника, ругается на вызов функции, если мне память не изменяет, то функцию вызываем в теле программы по ее названию, т.е. MyRemoveDir; ?