判斷目錄是否可寫

下面是一段delphi代碼
var
  TempFile: array[0..MAX_PATH] of Char;
begin
  if GetTempFileName(PChar(Dir), DA, 0, TempFile) <> 0 then
    Result := Windows.DeleteFile(TempFile)
  else
    Result := False;
end;用於判斷目錄是否可寫，主要是用了GetTempFileName和DeleteFile這兩個windows api。GetFileAttributes這個函數對目錄是否可寫沒什麼用。qt裡面有一個QDir::isWritable函數，用來判斷目錄是否可寫，不知道具體如何實現的，有時間的話看看。