Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi检查驱动器是否已经准备妥当 →→→→→进入此内容的聊天室

来自 , 2019-10-21, 写在 Delphi (Object Pascal), 查看 153 次.
URL http://www.code666.cn/view/44e65d3e
  1. function IsDriveReady(const Drive: string): Boolean;
  2. var
  3.   ErrorMode: Word;    // current error mode
  4.   DriveNum: Integer;  // zero based number of drive
  5. begin
  6.   Result := False;
  7.   // Get zero based drive number
  8.   DriveNum := GetDriveNumber(Drive);
  9.   if DriveNum = -1 then
  10.     Exit;
  11.   ErrorMode := Windows.SetErrorMode(Windows.SEM_FAILCRITICALERRORS);
  12.   try
  13.     // DiskSize requires 1 based drive numbers
  14.     // returns -1 for invalid drives
  15.     if SysUtils.DiskSize(DriveNum + 1) <> -1 then
  16.       Result := True;
  17.   finally
  18.     Windows.SetErrorMode(ErrorMode);
  19.   end;
  20. end;
  21. //delphi/2202

回复 "Delphi检查驱动器是否已经准备妥当"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666