Probleme beim Löschen eines Ordners

[Helmi]

Danke Christian Seehase :hello: :cheers: :cheers: :hello:

dein Tip hat geholfen :-D

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. :-D

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

:coder:

mfg
Helmi