硬件共54篇

delphi 检测CPU内核数

program Project1;{$APPTYPE CONSOLE}{$R *.res}uses  System.SysUtils;begin  try  Writeln(System.CPUCount);  readln;    {描述代表检测到的CPU内核数。CPUCo...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0646

Delphi 取得当前监视器的分辨率

var  MonInfo: TMonitorInfo;begin  MonInfo.cbSize := SizeOf(MonInfo);  GetMonitorInfo(MonitorFromWindow(Handle, MONITOR_DEFAULTTONE...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05415

Delphi QR /条形码扫描仪应用示例代码(使用ZXing,TFrameStand)

这是Embarcadero的MVP开发人员Andrea Magni的文章。 在本文中,我们共享QR /条角扫描仪应用程序ScannerMApp的技术(开源)和Delphi代码。 已经有许多条形码/ QR码应用程序,但是通过...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0646

delphi wmi 取显卡GPU信息

{$APPTYPE CONSOLE}uses  SysUtils,  ActiveX,  ComObj,  Variants;procedure  GetWin32_VideoControllerInfo;const  WbemUser        &nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0605

Delphi 获取网卡Mac为软件注册机器码

unit uRegCode;interfaceuses  Winapi.Windows, System.SysUtils, System.Classes, ActiveX, ComObj, System.Variants,  System.StrUtils, Registry, Winapi.IpTypes, Winapi.IpHlpAp...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0369

Delphi 获取网卡MAC代码可用2020.01.22

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04314

Delphi Winsoft ComPort for Android USB

unit Main;interfaceuses  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, F...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06412
Delphi 获取CPU Monitor使用率-Delphi编程技巧大全

Delphi 获取CPU Monitor使用率

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils,System.StrUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.D...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0548

Delphi – 利用DLL编程控制摄像头实现拍照、录制视频

Delphi利用avicap32.dll编程控制摄像头实现拍照、录制视频项目需求:平板电脑(Windows系统)一维/二维码扫描功能;需求分析:需要扫描一维/二维码时,分两步实现。第一步,avicap32.dll或者dsp...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0597

Delphi 用 DirectShow 获取本机的视频摄像设备列表

最近的项目用到一个视频模块,要求很简单,就是用本机的摄像头、摄像机或照相机实时拍照获取照片,用 VFW 很容易实现了,不过 avicap 中的函数 capGetDriverDescription 在获取驱动名称的时候,...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06111

Delphi 获取CPU信息的单元

unit uCPUInfo;(*   lightweight unit for access to CPU and RAM usage information   R. Cherepanov...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04312

DELPHI操作USB摄像头类

最近在使用Usb摄像头做了个项目,其中写了一个操作usb摄像头类分享给大家{*******************************************************}{               ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0397
DELPHI 脉搏波9808血压计读取测试程序-Delphi编程技巧大全

DELPHI 脉搏波9808血压计读取测试程序

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0366

D10环境下调用HidController1.0.35获取数据乱码问题

通过测试,HidController1.0.35在delphi10.2下可以正常编译。使USB HID设备的联机不再困难,但ONDATA事件中,DATA数据字符串为单字节,D10的widestring显示会出现乱码因此,应在使用前使用short...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03515

delphi 开关显示器操作

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Vcl.ExtCtrls;type  TForm1 = class(TForm)&nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05913

delphi 获取网卡信息

uses IpHlpApi, IpTypes;procedure RetrieveLocalAdapterInformation(strings: TStrings);var  pAdapterInfo, pTempAdapterInfo: PIP_ADAPTER_INFO;  AdapterInfo: IP_ADAPTER_INFO;&...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04411

Delphi调用WMI读取USB设备的PID和VID

WMI(Windows®Management Instrumentation ) 非常强大,它可以以数据库的形式查询你的电脑的软件和硬件,在它的数据库里面,时刻保存着最新的软件信息和硬件信息,因此你可以用WMI来检测CUP...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05210

delphi serial number of an USB flash drive 获取U盘硬件序列号

因为个别特殊符号,网站屏蔽无法发布,只能加密再发布。请用这个在线工具解密一下:http://www.txttool.com/WenBen_AesDes.asp U2FsdGVkX1/mOZC8vjlLiLMsH7KWKc0jFfOmeXbzpO8pMa4QRx8fE3pS...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0477

Delphi自动检测U盘插入、拔出及获取U盘盘符

unit Unit1;interfaceuses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, AppEvnts, ExtCtrls, StdCtrls;type    ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0526

delphi 根据盘符弹出U盘

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,EjectUSB, StdCtrls;// EjectUSB http://www.delphitop.com/html...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0298

delphi Get_HD_Serial() 获得磁盘驱动器序列号

{获得磁盘驱动器序列号} function Get_HD_Serial(const Drivedir: Char): string; var   Nu: DWORD;   Vf: DWORD;   VolumeInfo: array[0..MAX_PATH] ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04715

Delphi下CPU GetCPUID实现(x86和x64)

以下方法还是通过汇编实现,不过针对x64做了调整,以支持x86和x64两种环境,代码如下:// 获取cpu序列号type  TCPUID = array [1 .. 4] of Longint; function GetCPUID: TCPUID;asm&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06113

delphi 通过 PnP 获取显示器信息示例

uses edid; procedure TForm1.Button1Click(Sender: TObject);var  AMonitors: TPnpMonitors;  I: Integer;begin  AMonitors := TPnpMonitors.Create(Self);  Memo1.L...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05614

delphi 全面获取 CPU 信息

unit untCpuInfo;interface{ 获取 CPU 制造商 }function GetCpuFactory: String;{ 获取 CPU 家族系统 }function GetCpuFamily: Cardinal;{ 获取 CPU 型号 }function GetCpuModel: Cardinal;{ 获...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0609

Delphi 移除U盘的两种方法

1.CreateFile,DeviceIoControl,CloseHandle2.SetupDiGetClassDevs,SetupDiEnumDeviceInfo,CM_Get_DevNode_Status,CM_Request_Device_Eject我用了2种U盘试验: 一种是普通的U盘,一种是手机模...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05913

Delphi侦测条码枪方式

条码枪的原理其实很简单,就是一个仿键盘输入的机器。放上一个Edit元件,接著setfocus后在edit的keypress检查enter(#13)就行了procedure TForm1.EdtBarcodeKeyPress(Sender: TObject; var Key: ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0608

Delphi POS – 通过USB Printer打开钱抽屉

procedure USBOpenCashDrawer(PrinterName: String);var  // use winspool  Handle, hDeviceMode: THandle;  N: DWORD;  DocInfo1: TDocInfo1; &...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04910

如何判断硬盘是Fat32还是NTFS

varVolumeName,FileSystemName:array[0..255]of char; size1,size2:cardinal; VolumeSerialNumber:DWORD; begin GetVolumeInformation('c:',VolumeName,256,@VolumeSe...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05112

delphi 获取硬盘序列号(IDE,SATA,SCSI)

{获取SCSI硬盘出厂系列号需要系统管理员权限,不支持磁盘阵列这里只取了第0个或第1个硬盘的序列号}function GetScsiSerialNumber(const i: smallint): string;type  TScsiPassThrough = re...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05912

Delphi XE 取得硬盘序列号代码

function GetIdeSerialNumber: pchar;const IDENTIFY_BUFFER_SIZE = 512;type  TIDERegs = packed record  bFeaturesReg: BYTE; // Used for specifying SMART 'commands'.  bSe...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0309