在Delphi中检测磁盘活动

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.