Einzelnen Beitrag anzeigen

Benutzerbild von Daniel B
Daniel B

Registriert seit: 27. Okt 2005
Ort: Dachau
453 Beiträge
 
Delphi 2007 Professional
 
#2

Re: Attribut: Schreibschutz eines Ordners aufheben?

  Alt 16. Sep 2006, 12:50
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...
  Mit Zitat antworten Zitat