Как считать мигание индикатора логического жесткого диска?

// HDD-SCROLL
// Индикатор активности винчестера (на WinAPI) - помигиваем SCROLL на клавиатуре
// Разработчик: Бадло Сергей Григорьевич
// H-page: [url]http://raxp.radioliga.com[/url]
// Зависимости: Win32 (проверена работоспособность на IDE/SATA в x86/x64)
 
 
program hdd_scroll;
 
uses Messages,Classes, Windows;
 
 
type
 TF = class
 protected
  FWnd: HWnd;
  constructor Create;
  destructor Destroy;
 
  procedure WndProcc(var Msg:TMessage); message WM_DeviceChange;
end;
 
 
type DISK_PERFORMANCE = record
 BytesRead,
 BytesWritten,
 ReadTime,
 WriteTime  : longint;
 ReadCount,
 WriteCount,
 QueueDepth : dword;
End;
 
 
  TFNTimeCallBack = procedure(uTimerID, uMessage: UINT;
    dwUser, dw1, dw2: DWORD) stdcall;
    
const IOCTL_DISK_PERFORMANCE = $70020;
var
  FWnd: HWnd;
  t: tf;
  Msg: tmsg;
 
  hdn: hwnd;
  OldReadTime, OldWriteTime: longint;
  dp: DISK_PERFORMANCE;
  lBytesReturned: cardinal;
 
  //таймер-
  tmr2:integer;
  function timeSetEvent(uDelay, uResolution: UINT;lpFunction: TFNTimeCallBack; dwUser: DWORD; uFlags: UINT): UINT;stdcall; external 'winmm.dll' name 'timeSetEvent';
  function timeKillEvent(uTimerID: UINT): UINT; stdcall; external 'winmm.dll' name 'timeKillEvent';
 
 
 
 
// кликнуть SCROLL
procedure scroll(p: boolean);
begin
 if ((GetKeyState(145) = 1)and(not p))or // включен и погасить
    ((GetKeyState(145) <> 1)and(p))      // выключен и зажечь
  then begin
  keybd_event(145, MapVirtualKey(145, 0) , 0, 0);
  keybd_event(145, MapVirtualKey(145, 0), 38, 0)
 end
end;
 
procedure Ontmr2(uTimerID, uMessage: uint;dwUser, dw1, dw2: dword) stdcall;
begin
 DeviceIoControl(hdn, IOCTL_DISK_PERFORMANCE, 0, 0, @dp, SizeOf(DISK_PERFORMANCE), lBytesReturned, 0);
 
 if dp.ReadTime <> OldReadTime then begin
  OldReadTime:= dp.ReadTime;
  scroll(true)
 end else scroll(false);
 
 if dp.WriteTime <> OldWriteTime then begin
  OldWriteTime:= dp.WriteTime;
  scroll(true)
 end else scroll(false);
end;
 
procedure timer_create;
begin
 tmr2:= timesetevent(10, 0, @Ontmr2, 0, 1)
end;
 
procedure timer_destroy;
begin
 timeKillEvent(tmr2)
end;
 
 
 
// СКЕЛЕТ ===============================
constructor TF.Create;
begin
 inherited Create;
 FWnd:= AllocateHWnd(WndProcc);
 timer_create
end;
 
destructor TF.Destroy;
begin
 inherited Create;
 timer_destroy;
 deAllocateHWnd(fWnd)
end;
 
procedure tf.WndProcc(var Msg:TMessage);
begin
 {if Msg.wparam = DBT_DEVICEARRIVAL then 
  if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
   messagebox(fwnd,pchar(GetDrive(PDevBroadcastVolume(Msg. lParam))),'',0)}
end;
 
 
 
 
begin
 hdn:= CreateFile('\\.\PhysicalDrive0',0,0,0,OPEN_EXISTING, 0, 0);
 if hdn=0 then exit;
 
 t:= tf.Create;
 try while GetMessage(Msg, 0, 0, 0) do begin
  TranslateMessage(Msg);
  DispatchMessage(Msg)
 end finally t.destroy end
// END СКЕЛЕТ =======================
 
end.