Schreibschutz nach kopieren von CD aufheben ?

[bigg]

Dafür habe ich eine Funktion, die die Dateiattribute entfernt:

Delphi-Quellcode:

procedure NoFileAttributes(const FileName: String);
begin if FileExists(FileName) then
Windows.SetFileAttributes(PChar(FileName), FILE_ATTRIBUTE_NORMAL);
end;