Delphi侦测条码枪方式

本文整理自网络，侵删。

 
条码枪的原理其实很简单，就是一个仿键盘输入的机器。
放上一个Edit元件，接著setfocus后
在edit的keypress检查enter(#13)就行了

procedure TForm1.EdtBarcodeKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
    // 处理EdtBarcode内容（就是刷到的条码）
  end;
end;
 

相关阅读 >>

Delphi 遍历pe文件

Delphi 字节数转换为kb或mb字符串

Delphi 取目录下指定文件到列表

dbgrideh 组件在borland开发工具中应用全攻略

Delphi 利用hook api函数openprocess与terminateprocess来防止任务管理器结束进程

Delphi中启用禁止cd驱动器自动运行播放

Delphi webbrowser 自动登录

Delphi 遍历系统窗口标题可用于反外挂反破解

Delphi调用阿里云的对象存储服务oss

Delphi 给力版 getprocaddress

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi侦测条码枪方式