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;