Ich versuche wie folgt den Schreibschutz eines Ordners aufzuheben, um diesen anschließend löschen zu können.
Delphi-Quellcode:
procedure TForm1.Timer4Timer(Sender: TObject);
begin
Timer4.Enabled:=False;
SetFileAttributes(PChar(Edit1.Text + '\Pics'), FILE_ATTRIBUTE_NORMAL);
DelDir(Edit1.Text + '\Pics');
ShowMessage('Beendet');
end;
Es tut sich leider nichts.