请教！如何用delphi程序控制usb接口

Question

请问如何用一个delphi小程序控制usb接口，可以屏蔽和启用  急等 谢谢

Answer 1

http://2ccc.com/article.asp?articleid=966
這個控件是對USB操作的並帶有例子

Answer 2

大哥  能不能给个具体的例子  那里面的demo我不知道怎么给自己用啊

Answer 3

給你一段讀取USB鼠標的PID和VID的代碼：
procedure TForm1.FormShow(Sender: TObject);
begin
 JvHidDeviceController1DeviceChange(Self);
end;procedure TForm1.JvHidDeviceController1DeviceChange(Sender: TObject);
begin
     Sleep(20);
     JvHidDeviceController1.Enumerate;
end;function TForm1.JvHidDeviceController1Enumerate(HidDev: TJvHidDevice;
  const Idx: Integer): Boolean;
var
  Dev: TJvHidDevice;
  N: Integer;
begin
  if HidDev.ProductName <> '' then
  begin
    Label1.Caption:=Format('Device VID=%x   PID=%x',[HidDev.Attributes.VendorID, HidDev.Attributes.ProductID]);
  end
  else
   JvHidDeviceController1.CheckOutByIndex(Dev, Idx);
   Result := True;
end;