高分求程序实现弹出USB设备,如U盘
高分求程序实现弹出USB设备,如U盘
本人也查了相关的资料
http://zhidao.baidu.com/question/31106191
http://blog.csdn.net/goodwinds/article/details/2691879
以上也有人发出了贴,但不完整,请各位高手给出完整的。
[解决办法]
这里有个例子,自己下吧,我试过了,可以弹出U盘!有源码!
http://download.csdn.net/download/wqcw6lf/3803864
[解决办法]
接点分。。。。
[解决办法]
同楼上!
[解决办法]
接分!
[解决办法]
procedure TForm1.TreeViewClick(Sender: TObject);var DeviceInfoData: TSPDevInfoData; Status, Problem: DWord; VetoType: TPNPVetoType; VetoName: array[0..256] of Char;begin DeviceInfoData.cbSize := SizeOf(TSPDevInfoData); // Get a handle to the Selected Item. if (not SetupDiEnumDeviceInfo(DevInfo, TreeView.Selected.Index, DeviceInfoData)) then begin exit; end; self.Caption :=IntToStr(DeviceInfoData.DevInst);end;