If GetFileAttributes_("Datei.txt")=#FILE_ATTRIBUTE_READONLY
  MessageRequester("","Datei ist schreibgeschützt.",0)
EndIf