Probleme beim Löschen eines Ordners

[Helmi]

Danke Christian Seehase

dein Tip hat geholfen

Ich hab meinen Button 3 wie folgt umgeändert und dann kann ich mit dem Button2 den order ohne probs ändern:

Code:

procedure TForm1.Button3Click(Sender: TObject);
var
  sr: TSearchRec;
  FileAttrs: Integer;

begin
  FileAttrs := 0;

  FileAttrs := FileAttrs or faReadOnly;
  FileAttrs := FileAttrs or faHidden;
  FileAttrs := FileAttrs or faSysFile;
  FileAttrs := FileAttrs or faVolumeID;
  FileAttrs := FileAttrs or faDirectory;
  FileAttrs := FileAttrs or faArchive;
  FileAttrs := FileAttrs or faAnyFile;

  If FindFirst(Edit1.Text + '\*.*', FileAttrs, sr) = 0 then
    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
          showmessage(sr.Name);
          showmessage(IntToStr(ord(deletefile(Edit1.Text + '\' + sr.Name))));
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
end;