请问如何捕获驱动器增加的消息？

Question

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
   raise EConvertError.Create('Not a valid drive ID');
  ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  try
   { drive 1 = a, 2 = b, 3 = c ... }
   if DiskSize(Ord(Drive) - $40) = -1 then
    Result := False
   else
    Result := True;
  finally
   SetErrorMode(ErrorMode);
  end;
end;然后: if DiskInDrive('E') then showmessage('OK!');

Answer 1

forgot2000:
我是想在插入盘或映谢网络驱动器时，能捕捉到系统的消息，你的方法是需要时判断。
vcshcn：
加timer是不是会耗系统资源？没着的话，也只能是这样了。