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.
Servus...