Здравствуйте!
Можно ли с помощью этого кода удалить все с диска D:

Function MyRemoveDir(sDir : String) : Boolean;
  var
   iIndex : Integer;
   SearchRec : TSearchRec;
   sFileName : String;
  begin
   Result := False;
   sDir := sDir + 'D:\*.*';
   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
      ShowMessage('Could NOT delete ' + sFileName);
    end;
    iIndex := FindNext(SearchRec);
   end;
   FindClose(SearchRec);
   RemoveDir(ExtractFileDir(sDir));
   Result := True;
  end;

Попробуй - узнаешь!!!

Цитата(Baa @ 16.6.2002, 16:00)

Попробуй - узнаешь!!!

Я так и знал  

А какого ответа ты еще ожидал?

ShFileOperation() - всё решение в пяти строках.

Цитата(Song @ 16.6.2002, 20:01)

ShFileOperation() - всё решение в пяти строках.

Что ты имеешь в виду в пяти строчках?
Черкни плиз!

Цитата(HAspiring @ 17.6.2002, 02:08)

Цитата(Song @ 16.6.2002, ) ShFileOperation() - всё решение в пяти строках. Что ты имеешь в виду в пяти строчках? Черкни плиз!

rtfm
Посмори уже фак по дельфи, там все написано!