delphi用createfile打开usb设备

本文主要是介绍delphi用createfile打开usb设备，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

关键是第一个参数：设备链接名。
可以通过设备管理器找到相关usb设备，详细信息里边的设备范例ID获取部分信息，如Vid_1eab&Pid_8001#7&c6e4acc&0&1。
也可以直接查看注册表HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\DeviceClasses下找到usb设备驱动的guid，进入子键，一般都有一个#健，里面有symboliclink。

procedure TForm1.Button1Click(Sender: TObject);
var h:longword;
begin
h:=CreateFile(pchar('\\?\USB#Vid_****&Pid_****#5&fcaed90&0&2#{6e0128e7-17cd-448f-9887-8ca1a862736c}'),
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
0,
OPEN_EXISTING,
FILE_FLAG_OVERLAPPED,
0);
if h=INVALID_HANDLE_VALUE then showmessage('无效链接名');
end;

这篇关于delphi用createfile打开usb设备的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---