Определить, вставлена ли флэшка в USB-вход

procedure TForm1.FormCreate(Sender: TObject);
var lDrives:Cardinal;
    ch:Char;
    i:Cardinal;
    s:string;
begin
    lDrives := GetLogicalDrives();
    ch := 'A';
    i := 1;
    s := '';
    while ch<='Z' do begin
        if (lDrives and i)<>0 then begin
            s := s + ch + ':/ ';
        end;
        inc(Byte(ch));
        i := i shl 1;
    end;
    Caption := s;
end;

P_DEV_BROADCAST_HDR = ^T_DEV_BROADCAST_HDR;
T_DEV_BROADCAST_HDR = packed record
    dbch_size :DWORD;
    dbch_devicetype :DWORD;
    dbch_reserved :DWORD;
end;

const
    DBT_DEVICEARRIVAL           = $8000;  // system detected a new device
    DBT_DEVICEQUERYREMOVE       = $8001;  // wants to remove, may fail
    DBT_DEVICEQUERYREMOVEFAILED = $8002;  // removal aborted
    DBT_DEVICEREMOVEPENDING     = $8003;  // about to remove, still avail.
    DBT_DEVICEREMOVECOMPLETE    = $8004;  // device is gone
    DBT_DEVICETYPESPECIFIC      = $8005;  // type specific event
 
    DBT_DEVTYP_OEM     = $00000000;  // oem-defined device type
    DBT_DEVTYP_DEVNODE = $00000001;  // devnode number
    DBT_DEVTYP_VOLUME  = $00000002;  // logical volume
    DBT_DEVTYP_PORT    = $00000003;  // serial, parallel
    DBT_DEVTYP_NET     = $00000004;  // network resource
 
...
 
procedure TfrmMain.DeviceChanged(var Message: TMessage);
var pDBT:P_DEV_BROADCAST_HDR;
begin
    case Message.WParam of
        DBT_DEVICEARRIVAL, // добавился девайс
        DBT_DEVICEREMOVECOMPLETE: begin // удалился девайс
            pDBT := Pointer(Message.LParam);
            if (pDBT<>nil) then begin
                // если это диск, то
                if (pDBT^.dbch_devicetype=DBT_DEVTYP_VOLUME) then begin
                    //проверяем диски
                end;
            end;
        end;
    end;
    Message.result := DWORD(True);
end;

procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
............................................
procedure TForm1.WMDeviceChange(var Msg: TMessage);
begin
............................................
end