delphi 测试磁盘是否具有写访问权限

Delphi 测试磁盘是否具有写访问权限

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;

调用

if CanWrite('g') = true then

begin

showmessage('可以写');

end

else

begin

showmessage('不能写');

end;

来源：http://www.xuexidashi.vip/h-nd-1629.html#_np=125_826

推荐分享