Dateiattribute lesen / setzen

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  attrs : Integer; 
begin 
  attrs := FileGetAttr( 'C:\io.sys'); 
  if attrs and faReadOnly > 0 then 
    showMessage( 'Schreibgeschützt' ); 
  if attrs and faHidden > 0 then 
    showMessage( 'Verstecktt' ); 
  if attrs and faSysFile > 0 then 
    showMessage( 'Systemdatei' ); 
  if attrs and faVolumeID > 0 then 
    showMessage( 'Laufwerks-ID' ); 
  if attrs and faDirectory > 0 then 
    showMessage( 'Verzeichnis' ); 
  if attrs and faArchive > 0 then 
    showMessage( 'Archivdatei' ); 
  if attrs and faAnyFile > 0 then 
    showMessage( 'Irgendeine Datei' ); 
end;

[edit=Matze]Code formatiert. Mfg, Matze[/edit]