Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Dateiattribute lesen / setzen
30. Jan 2003, 23:27
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]
Michael Ein Teil meines Codes würde euch verunsichern.
|