谢谢!

解决方案 »

  1.   

    ExtractFileExt function
       Returns the extension portions of a file name.
    Delphi syntax:function ExtractFileExt(const FileName: string): string;
    DescriptionUse ExtractFileExt to obtain the extension from a file name. For example, the following code returns the extension of the file name specified by a variable named MyFileName: MyFilesExtension := ExtractFileExt(MyFileName); // Delphi
      

  2.   

    var attrs:integer;
    attrs:=filegetattr('c:\123.dbf');
    if (attrs and fareadonly)<>0 then showmessage
    ('the file is readonly');
    fareadonly(0) fahidden(2)  fasysfile(4) faarchive(32)
      

  3.   

    GetFileAttributes(filaname:PChar):DWORD返回值
    Value
    FILE_ATTRIBUTE_ARCHIVE
    FILE_ATTRIBUTE_COMPRESSED
    FILE_ATTRIBUTE_DIRECTORY
    FILE_ATTRIBUTE_HIDDEN
    FILE_ATTRIBUTE_NORMAL
    FILE_ATTRIBUTE_OFFLINE
    FILE_ATTRIBUTE_READONLY
    FILE_ATTRIBUTE_SYSTEM
    FILE_ATTRIBUTE_TEMPORARY