delphi 判断某个磁盘分区是否存在

本文整理自网络，侵删。

 function DiskInDrive(Drive: Char): Boolean;
var ErrorMode: word;
begin
if Drive in ['a'..'z'] then Dec(Drive, $20);
if not (Drive in ['A'..'Z']) then
begin
Result := False;
Exit;
end;
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try
if DiskSize(Ord(Drive) - $40) = -1 then
Result := False
else
Result := True;
finally
SetErrorMode(ErrorMode);
end;
end;
 

相关阅读 >>

Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err

Delphi中的各种文件类型介绍

Delphi 四舍五入保留一位或两位小数

Delphi 判断文件名是否有效

Delphi 中showmodal与show的区别

Delphi 通过按键 esc 关闭程序

Delphi webbrowser1 缩放网页

Delphi 取正在运行的dll或exe的路径

Delphi 命令行 打开读写txt文件

Delphi 删除动态数组的指定元素

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 判断某个磁盘分区是否存在