Attribut: Schreibschutz eines Ordners aufheben?

[Daniel B]

Hallo,

bei dir findet er den Ordner nicht, der Pfad ist wohl nicht ganz. Hier mal ein Beispiel wie es schon funktioniert und der auch gelöscht wird.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetFileAttributes(PChar('F:\Programmierung\TEST\Test'),
                    FILE_ATTRIBUTE_HIDDEN);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RemoveDir(ExtractFileDir(ParamStr(0)) + '\Test')
end;

EDIT: Wobei du mit FILE_ATTRIBUTE_NORMAL die normalen Attribute wegbekommst, den Schreibschutz nicht.

EDIT2: Habs grad mal probiert, du musst den Schreibschutz nichtmal aufheben, du kannst direkt löschen mit dem RemoveDir, das ist dem wurst ob der Schreibgeschützt ist oder nicht.