在Delphi中检测磁盘活动

在Delphi中检测磁盘活动可以通过使用Windows API中的GetDriveType函数来实现。GetDriveType函数可以检测指定的磁盘驱动器类型，例如固定磁盘、软盘、CD-ROM等。以下是一个简单的示例代码，展示了如何使用GetDriveType函数检测磁盘活动：

program CheckDiskActivity;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

function GetDriveTypeStr(DriveType: UINT): string;
begin
  case DriveType of
    DRIVE_UNKNOWN: Result := 'Unknown';
    DRIVE_NO_ROOT_DIR: Result := 'No Root Directory';
    DRIVE_REMOVABLE: Result := 'Removable';
    DRIVE_FIXED: Result := 'Fixed';
    DRIVE_REMOTE: Result := 'Remote';
    DRIVE_CDROM: Result := 'CD-ROM';
    DRIVE_RAMDISK: Result := 'RAM Disk';
  else
    Result := 'Unknown';
  end;
end;

var
  DriveType: UINT;
begin
  try
    DriveType := GetDriveType(PChar('C:\'));
    WriteLn('Drive C: is a ', GetDriveTypeStr(DriveType));
  except
    on E: Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.

在这个示例代码中，我们使用GetDriveType函数检测磁盘C的类型，并将结果输出到控制台。GetDriveTypeStr函数用于将GetDriveType函数返回的整数值转换为对应的字符串表示。

需要注意的是，GetDriveType函数只能检测本地磁盘的类型，无法检测网络磁盘的活动。如果需要检测网络磁盘的活动，可以使用其他方法，例如使用Windows API中的WNetAddConnection2函数来连接到网络磁盘，并使用GetDriveType函数检测其类型。