Delphi获取U盘序列号、实现U盘锁

[{"title":"（ 17 个子文件 268KB ） Delphi获取U盘序列号、实现U盘锁","children":[{"title":"Delphi编程实现U盘锁源码","children":[{"title":"usb.res <span style='color:#111;'> 1.23KB </span>","children":null,"spread":false},{"title":"usb.dpr <span style='color:#111;'> 222B </span>","children":null,"spread":false},{"title":"usbdll.dll <span style='color:#111;'> 111.50KB </span>","children":null,"spread":false},{"title":"usbdll.dof <span style='color:#111;'> 1.11KB </span>","children":null,"spread":false},{"title":"usbdll.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"usblock.dfm <span style='color:#111;'> 20.04KB </span>","children":null,"spread":false},{"title":"UsbFile.txt <span style='color:#111;'> 0B </span>","children":null,"spread":false},{"title":"usblock.dcu <span style='color:#111;'> 23.92KB </span>","children":null,"spread":false},{"title":"usbdll.cfg <span style='color:#111;'> 386B </span>","children":null,"spread":false},{"title":"usb.dof <span style='color:#111;'> 1.33KB </span>","children":null,"spread":false},{"title":"usb.cfg <span style='color:#111;'> 386B </span>","children":null,"spread":false},{"title":"usbcode.pas <span style='color:#111;'> 943B </span>","children":null,"spread":false},{"title":"usbcode.dcu <span style='color:#111;'> 1.15KB </span>","children":null,"spread":false},{"title":"usblock.pas <span style='color:#111;'> 20.99KB </span>","children":null,"spread":false},{"title":"usblock.ddp <span style='color:#111;'> 51B </span>","children":null,"spread":false},{"title":"usbdll.dpr <span style='color:#111;'> 724B </span>","children":null,"spread":false},{"title":"usb.exe <span style='color:#111;'> 464.50KB </span>","children":null,"spread":false}],"spread":false}],"spread":true}]