檢查目錄是否可讀

Question

如何檢查目錄是否只讀？

Answer 1

您可以使用FileGetAttr函數並檢查faReadOnly標誌是否已設置。

試試這個代碼

function DirIsReadOnly(Path:string):Boolean; 
var 
attrs : Integer; 
begin 
attrs := FileGetAttr(Path); 
Result := (attrs and faReadOnly) > 0; 
end; 

Answer 2

在Windows API的方式，它是：

fa := GetFileAttributes(PChar(FileName)) 
if (fa and FILE_ATTRIBUTE_DIRECTORY <> 0) and (fa and FILE_ATTRIBUTE_READONLY <> 0) then 
    ShowMessage('Directory is read-only'); 

Answer 3

測試，如果該目錄的屬性是R/O只是答案的一部分。由於訪問權限，您可以輕鬆地擁有一個仍然無法寫入的R/W目錄。

最好的方式來檢查，如果你可以寫一個目錄與否是 - 試試：

FUNCTION WritableDir(CONST Dir : STRING) : BOOLEAN; 
    VAR 
    FIL : FILE; 
    N : STRING; 
    I : Cardinal; 

    BEGIN 
    REPEAT 
     N:=IncludeTrailingPathDelimiter(Dir); 
     FOR I:=1 TO 250-LENGTH(N) DO N:=N+CHAR(RANDOM(26)+65) 
    UNTIL NOT FileExists(N); 
    Result:=TRUE; 
    TRY 
     AssignFile(FIL,N); 
     REWRITE(FIL,1); 
     Result:=FileExists(N); // Not sure if this is needed, but AlainD says so :-) 
    EXCEPT 
     Result:=FALSE 
    END; 
    IF Result THEN BEGIN 
     CloseFile(FIL); 
     ERASE(FIL) 
    END 
    END; 

Answer 4

版本HeartWare給是好的，但包含了兩個錯誤。這個修改後的版本工作更可靠，並具有註釋來解釋正在發生的事情：

function IsPathWriteable(const cszPath: String) : Boolean; 
var 
    fileTest: file; 
    szFile: String; 
    nChar: Cardinal; 
begin 
    // Generate a random filename that does NOT exist in the directory 
    Result := True; 
    repeat 
     szFile := IncludeTrailingPathDelimiter(cszPath); 
     for nChar:=1 to (250 - Length(szFile)) do 
      szFile := (szFile + char(Random(26) + 65)); 
    until (not FileExists(szFile)); 

    // Attempt to write the file to the directory. This will fail on something like a CD drive or 
    // if the user does not have permission, but otherwise should work. 
    try 
     AssignFile(fileTest, szFile); 
     Rewrite(fileTest, 1); 

     // Note: Actually check for the existence of the file. Windows may appear to have created 
     // the file, but this fails (without an exception) if advanced security attibutes for the 
     // folder have denied "Create Files/Write Data" access to the logged in user. 
     if (not FileExists(szFile)) then 
      Result := False; 
    except 
     Result := False; 
    end; 

    // If the file was written to the path, delete it 
    if (Result) then 
     begin 
     CloseFile(fileTest); 
     Erase(fileTest); 
     end; 
end;