本文主要是介绍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设备的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!