function CanWrite(drive: string): boolean;     var         OldMode: Cardinal;     begin         OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);         try             with TStringList.Create do                 try                     SaveToFile(drive + ':\file.txt');                     result := true;                     try                         deletefile(drive + ':\file.txt');                     except                     end;                 except                     result := false;                 end;         finally             SetErrorMode(OldMode);         end; end;

---

调用

if CanWrite('g') = true then     begin         showmessage('可以写');     end     else     begin         showmessage('不能写'); end;