急!!!如果识别u盘的名称.(100分)

newmaid · 2008-04-17

比如,我插入'朗科'的U盘,系统会显示查找到'netac only disk usb device'; 也可以在'设备管理器'中的'磁盘驱动器'中看到这个u盘的名称. 我要的这就是个名称,没是盘符.请给出源代码. 新手,请大家帮帮忙,万分感谢.

guxiaoke · 2008-04-28

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ComCtrls, Registry; const   GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';   DBT_DEVICEARRIVAL = $8000; // system detected a new device   DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone   DBT_DEVTYP_DEVICEINTERFACE = $00000005; // device interface class type   PDevBroadcastDeviceInterface = ^DEV_BROADCAST_DEVICEINTERFACE;   DEV_BROADCAST_DEVICEINTERFACE = record     dbcc_size: DWORD;     dbcc_devicetype: DWORD;     dbcc_reserved: DWORD;     dbcc_classguid: TGUID;     dbcc_name: short;   end;   PDevBroadcastHdr = ^DEV_BROADCAST_HDR;   DEV_BROADCAST_HDR = packed record     dbch_size: DWORD;     dbch_devicetype: DWORD;     dbch_reserved: DWORD;   end;   TUSB = class(TObject)   private     FWindowHandle: HWND;     FOnUSBArrival: TNotifyEvent;     FOnUSBRemove: TNotifyEvent;     ListView: TListView;     ADOQuery: TADOQuery;     procedure WndProc(var Msg: TMessage);     function USBRegister: Boolean;   protected     procedure WMDeviceChange(var Msg: TMessage); dynamic;     function GetUSBStoreDriveName: String;     function GetUSBStoreDriveSerial: String;   public     constructor Create(ListView: TListView; ADOQuery: TADOQuery);     destructor Destroy; override;     property OnUSBArrival: TNotifyEvent read FOnUSBArrival write FOnUSBArrival;     property OnUSBRemove: TNotifyEvent read FOnUSBRemove write FOnUSBRemove;   end;   implementation {$R *.dfm} { TUSB } constructor TUSB.Create(ListView: TListView; ADOQuery: TADOQuery); begin    //Self.ListView := ListView; // 自己决定是否显示在ListView上    //Self.ADOQuery := ADOQuery; // 自己决定是否保存到数据库中    FWindowHandle := AllocateHWnd(WndProc);    USBRegister; end; destructor TUSB.Destroy; begin    DeallocateHWnd(FWindowHandle);    inherited Destroy; end; function TUSB.USBRegister: Boolean; var    dbi: DEV_BROADCAST_DEVICEINTERFACE;    Size: Integer;    r: Pointer; begin    Result := False;    Size := SizeOf(DEV_BROADCAST_DEVICEINTERFACE);    ZeroMemory(@dbi, Size);    dbi.dbcc_size := Size;    dbi.dbcc_devicetype := DBT_DEVTYP_DEVICEINTERFACE;    dbi.dbcc_reserved := 0;    dbi.dbcc_classguid  := GUID_DEVINTERFACE_USB_DEVICE;    dbi.dbcc_name := 0;    r := RegisterDeviceNotification(FWindowHandle, @dbi, DEVICE_NOTIFY_WINDOW_HANDLE);    if Assigned(r) then Result := True; end; procedure TUSB.WMDeviceChange(var Msg: TMessage); var    devType: Integer;    Datos: PDevBroadcastHdr;    HostIP, WorkTime, WorkType, WorkName, WorkPvid: String; begin    if (Msg.wParam = DBT_DEVICEARRIVAL) or (Msg.wParam = DBT_DEVICEREMOVECOMPLETE) then    begin       Datos := PDevBroadcastHdr(Msg.lParam);       devType := Datos^.dbch_devicetype;       if devType = DBT_DEVTYP_DEVICEINTERFACE then       begin // USB Device          HostIP := IPAddressToString(StringToIPAddress(GetLocalHostIP));          WorkTime := FormatDateTime('yyyy-mm-dd hh:nn', Now);          if Msg.wParam = DBT_DEVICEARRIVAL then          begin             if Assigned(FOnUSBArrival) then FOnUSBArrival(Self);             WorkType := '接入';             WorkName := GetUSBStoreDriveName;             WorkPvid := GetUSBStoreDriveSerial;          end          else          begin             if Assigned(FOnUSBRemove) then FOnUSBRemove(Self);             WorkType := '移出';             WorkName := '';             WorkPvid := '';          end; { 如果保存到数据库中用这段代码          ADOQuery.Active := false;          ADOQuery.SQL.Text := 'INSERT INTO InspectUsbscout (WorkTime, WorkType, WorkName, WorkPvid) VALUES(' + Chr(39) + WorkTime + Chr(39) + ',' + Chr(39) + WorkType + Chr(39) + ',' + Chr(39) + WorkName + Chr(39) + ',' + Chr(39) + WorkPvid + Chr(39) + ')';          ADOQuery.ExecSQL; }       end;    end; end; procedure TUSB.WndProc(var Msg: TMessage); begin    if (Msg.Msg = WM_DEVICECHANGE) then    begin       try          WMDeviceChange(Msg);       except          Application.HandleException(Self);       end;    end else Msg.Result := DefWindowProc(FWindowHandle, Msg.Msg, Msg.wParam, Msg.lParam); end; // 读移动存储设备名 function TUSB.GetUSBStoreDriveName: String; var    Reg: TRegistry;    KeyItem: WideString;    Count: Integer;    Value: WideString; begin    Result := '';    Reg := TRegistry.Create;    Reg.Access := KEY_QUERY_VALUE;    Reg.RootKey := HKEY_LOCAL_MACHINE;    try       // 取新接入的移动存储设备名键值       KeyItem := '/SYSTEM/CurrentControlSet/Services/Disk/Enum';       Reg.OpenKey(KeyItem, False);       Count := Reg.ReadInteger('Count');       Value := Reg.ReadString(IntToStr(Count - 1));       // 取新接入的移动存储设备详细值       KeyItem := '/SYSTEM/CurrentControlSet/Enum/' + Value;       Reg.OpenKey(KeyItem, False);       Value := Reg.ReadString('FriendlyName');       Result := Value;    finally       Reg.CloseKey;       Reg.Free;       inherited;    end; end; // 读移动存储设备序列号 function TUSB.GetUSBStoreDriveSerial: String; var    Reg: TRegistry;    KeyItem: WideString;    Count: Integer;    Value: WideString; begin    Result := '';    Reg := TRegistry.Create;    Reg.Access := KEY_QUERY_VALUE;    Reg.RootKey := HKEY_LOCAL_MACHINE;    try       // 取新接入的移动存储设备键值       KeyItem := '/SYSTEM/CurrentControlSet/Services/usbstor/Enum';       if(Reg.OpenKey(KeyItem, False)) then       begin          Count := Reg.ReadInteger('Count');          Value := Reg.ReadString(IntToStr(Count - 1));          Result := Value;       end;    finally       Reg.CloseKey;       Reg.Free;       inherited;    end; end;

delhpi · 2008-04-28

不错。

newmaid · 2008-04-28

接受答案了.

急!!!如果识别u盘的名称.(100分)

newmaid

Unregistered / Unconfirmed

guxiaoke

Unregistered / Unconfirmed

delhpi

Unregistered / Unconfirmed

newmaid

Unregistered / Unconfirmed

Similar threads