📄 device_isok.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>检查驱动器是否就绪</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>[本文摘自BBS, 不能保证绝对的正确, 仅供参考]<br>
<br>
检查驱动器是否就绪:<br>
<br>
下面这个函数可以显示是否就绪。(From Borland)<br>
<br>
function DiskInDrive(Drive: Char): Boolean;<br>
var ErrorMode: word;<br>
begin<br>
{ make it upper case } <br>
if Drive in ['a'..'z'] then Dec(Drive, $20);<br>
{ make sure it's a letter }<br>
if not (Drive in ['A'..'Z']) then<br>
raise EConvertError.Create('Not a valid drive ID');<br>
{ turn off critical errors }<br>
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);<br>
try<br>
{ drive 1 = a, 2 = b, 3 = c, etc. }<br>
if DiskSize(Ord(Drive) - $40) = -1 then<br>
Result := False<br>
else<br>
Result := True;<br>
finally<br>
{ restore old error mode }<br>
SetErrorMode(ErrorMode);<br>
end;<br>
end; <br>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -