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;

[Christian Seehase]

Moin Helmi,

freut mich.

Ich möchte Dir aber empfehlen Dir auch den Beitrag zu Gemüte zu führen, warum das so geht, denn das Verknüpfen von Flags kommt an vielen Stellen vor.

[Helmi]

Okili Dokili

werd ich bei Gelegenheit tun - zuerst muss ich an meiner function weitertippen



mfg
Helmi