這是從 Disk Controls Readme及Demo截錄出來的. 請教教我,如何在BCB上存取 dcFileInfoAttributes. 萬分感謝! if xx in .. 傻眼中...    

    St := 'Attributes: ';
    if fiaArchive in dcFileInfo.FileAttributes then
     St := St   'Archive ';
    if fiaHidden in dcFileInfo.FileAttributes then
     St := St   'Hidden ';
    if fiaReadOnly in dcFileInfo.FileAttributes then
     St := St   'ReadOnly ';
    if fiaSystem in dcFileInfo.FileAttributes then
     St := St   'System '; 

Declaration    type      TdcFileInfoAttributes = set of (fiaArchive, fiaHidden, fiaReadOnly, fiaSystem, fiaDirectory, fiaTemporary, fiaCompressed, fiaOffline);    property FileAttributes: TdcFileInfoAttributes;    Description    The FileAttributes property determines and changes the attributes for the file specified in the FileName property.    Value        Meaning
 fiaArchive        The file is an archive file. Applications use this value to mark files for backup or removal;
 fiaHidden        The file is hidden. It is not included in an ordinary directory listing;
 fiaReadOnly        The file is read-only. Applications can read the file but cannot write to it or delete it;
 fiaSystem        The file is part of the operating system or is used exclusively by it;
 fiaDirectory        The file is a directory; 

發表人 - dip 於 2004/09/13 15:57:41

引言: 這是從 Disk Controls Readme及Demo截錄出來的. 請教教我,如何在BCB上存取 dcFileInfoAttributes. 萬分感謝! if xx in .. 傻眼中...

    St := 'Attributes: ';
    if fiaArchive in dcFileInfo.FileAttributes then
     St := St + 'Archive ';
    if fiaHidden in dcFileInfo.FileAttributes then
     St := St + 'Hidden ';
    if fiaReadOnly in dcFileInfo.FileAttributes then
     St := St + 'ReadOnly ';
    if fiaSystem in dcFileInfo.FileAttributes then
     St := St + 'System '; 

Declaration    type      TdcFileInfoAttributes = set of (fiaArchive, fiaHidden, fiaReadOnly, fiaSystem, fiaDirectory, fiaTemporary, fiaCompressed, fiaOffline);    property FileAttributes: TdcFileInfoAttributes;    Description    The FileAttributes property determines and changes the attributes for the file specified in the FileName property.    Value        Meaning
 fiaArchive        The file is an archive file. Applications use this value to mark files for backup or removal;
 fiaHidden        The file is hidden. It is not included in an ordinary directory listing;
 fiaReadOnly        The file is read-only. Applications can read the file but cannot write to it or delete it;
 fiaSystem        The file is part of the operating system or is used exclusively by it;
 fiaDirectory        The file is a directory; 

Dip 你好:
(1)先試試看，醬子寫行不行呢？
    St="Attributes: ">
(2)不過在 BCB 裡面查詢不到 TdcFileInfoAttributes 這個 class，比較相近
   的 class 是 TSearchRec，建議你自己查詢 BCB Help 的相關說明 (以上的
   範例程式碼，就是依照 TSearchRec 的資料結構來寫的)
(3)相關的用法包括 FindFirst, FindNext...你可以依此關鍵字，利用本站的搜
   尋功能，就可以找到很多這方面的討論文章，以及範例程式碼
(4)例如這一篇：搜尋檔案範例
   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=44866

-- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2004/09/13 16:40:50

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

已經徹底放棄它了. 其實只是想把ReadOnly給去了. 都怪我笨, FileSetReadOnly() 放著不用.白繞了一大圈.. 不好意思,給您添麻煩了.