Delphi 如何获取 U盘 插入与拔出，还有盘符。

Question

处理WM_DEVICECHANGE这个消息：
当wParam为DBT_DEVICEARRIVAL时，有USB设备插入
当wParam为DBT_DEVICEREMOVEPENDING时，有USB设备拔出
其它的你查下MSDN有关WM_DEVICECHANGE说明即可。

Answer 1

var  buf:array [0..MAX_PATH-1] of char;
  m_Result:Integer;
  i:Integer;
  str_temp:string;
begin
  m_Result:=GetLogicalDriveStrings(MAX_PATH,buf);
  for i:=0 to (m_Result div 4) do
  begin
    str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]);
    if getdrivetype(pchar(str_temp)) = DRIVE_REMOVABLE then
    begin
      showmessage(str_temp+'盘为U盘');
      redt1.Lines.Add(str_temp);
    end;
  end;
str_temp中包括盘符