attrib in Delphi?

[smart]

Hallo Alle!

Wie kann ich soetwas in Delphi umsetzen?

if not attrib -r Then attrib -r;

[ste_ett]

Dafür musst du mit GetFileAttributes die Dateiattribute ermitteln und dann ggf. "FILE_ATTRIBUTE_READONLY" entfernen und mit SetFileAttributes die neuen Attribute wieder setzen.

[smart]

Zitat von ste_ett:

Dafür musst du mit GetFileAttributes die Dateiattribute ermitteln und dann ggf. "FILE_ATTRIBUTE_READONLY" entfernen und mit SetFileAttributes die neuen Attribute wieder setzen.

Hi.
Das hatte ich schon befürchtet. Gibt es da kein fertigen Delphi- Befehl für?

Gruß
Heike

[Hawkeye219]

Hier noch eine Möglichkeit:

FileSetReadOnly ('testfile.dat', False); Gruß Hawkeye

[Christian Seehase]

Moin Heike,

Zitat von smart:

Das hatte ich schon befürchtet. Gibt es da kein fertigen Delphi- Befehl für?

Gibt's, wie Hawkeye schon geschrieben hat, aber was ist daran so schlimm zwei Zeilen zu schreiben?

[smart]

Zitat von Christian Seehase:

was ist daran so schlimm zwei Zeilen zu schreiben?

Hi Christian!

Schlimm nicht, aber zwei Zeilen sind mehr als eine

Gruß
Heike