varMonInfo:TMonitorInfo;beginMonInfo.cbSize:=SizeOf(MonInfo);GetMonitorInfo(MonitorFromWindow(Handle…
这是Embarcadero的MVP开发人员AndreaMagni的文章。在本文中,我们共享QR/条角扫描仪应用程序ScannerMApp的技…
{$APPTYPECONSOLE}usesSysUtils,ActiveX,ComObj,Variants;procedureGetWin32_VideoControllerInfo;constWbe…
unituRegCode;interfaceusesWinapi.Windows,System.SysUtils,System.Classes,ActiveX,ComObj,System.Varian…
unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…
unitMain;interfaceusesSystem.SysUtils,System.Types,System.UITypes,System.Classes,System.Variants,FMX…
unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.StrUtils,System.Variant…
Delphi利用avicap32.dll编程控制摄像头实现拍照、录制视频项目需求:平板电脑(Windows系统)一维/二维码扫…
最近的项目用到一个视频模块,要求很简单,就是用本机的摄像头、摄像机或照相机实时拍照获取照片,用VFW很容…
unituCPUInfo;(*lightweightunitforaccesstoCPUandRAMusageinformationR.Cherepanov,06.2019X64support*)in…
最近在使用Usb摄像头做了个项目,其中写了一个操作usb摄像头类分享给大家{********************************…
安装HIDcontroller控件。1、用USB设备名获取VID,PID,建立临时缓冲区。2、checkout建立usb设备的线程3、拔插…
unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…
通过测试,HidController1.0.35在delphi10.2下可以正常编译。使USBHID设备的联机不再困难,但ONDATA事件中,…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…
unitAgent;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…
usesIpHlpApi,IpTypes;procedureRetrieveLocalAdapterInformation(strings:TStrings);varpAdapterInfo,pTem…
WMI(Windows®ManagementIns****umentation)非常强大,它可以以数据库的形式查询你的电脑的软件和硬件,…
{$APPTYPECONSOLE}ﻪﻪusesﻪSysUtils,ﻪStrU…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Ap…