Was soll das bitte sehr? Wie soll man dir helfen, wenn du nicht sagst, was für ein Fehler kommt bzw. was nicht geht?
Den Code habe ich mal irgendwo gefunden und mir mal aufgehoben, ihn aber selber noch nie gebraucht.
Ok war eventuell etwas hart, aber das kommt hier immer öfters vor, dass Leute sagen: "da kommt ein Fehler." Und dann nicht sagen was für einer. Aber wie ich oben schon geschrieben haben, wie soll man helfen, wenn der Fehler nicht näher beschrieben wird. Ungefähr genauso, als wenn du zum Arzt gehst und sagst: "Es tut weh." Was soll der Arzt da machen?
[EDIT]
Bei mir kompiliert der Code und bringt auch richtige Ergenisse:
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]
[EDIT2]
Funktioniert auch mit Verzeichnissen.
[/EDIT2]