RSS订阅 | 匿名投稿
您的位置:网站首页 > 硬件

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

WMI(Windows®ManagementInstrumentation)非常强大,它可以以数据库的形式查询你的电脑的软件和硬件,在它的数据库里面,时刻保存着最新的软件信息和硬件信息,因此你可以用WMI来检测CUP主频、温度,读取WINDOWS…
类别:硬件 标签: 作者:admin 日期:2018-01-23 22.31.53

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

{$APPTYPECONSOLE}ﻪﻪusesﻪSysUtils,ﻪStrUtils,ﻪActiveX,ﻪComObj,ﻪVariants;ﻪﻪ&#…
类别:硬件 标签: 作者:admin 日期:2018-01-23 19.37.37

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

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,AppEvnts,ExtCtrls,StdCtrls;typeTForm1=class(TForm)procedureButton1Click(Sender:TObject);private{Privat…
类别:硬件 标签: 作者:admin 日期:2018-01-23 17.46.38

Delphi XE取得硬盘序列号代码 复制代码

functionGetIdeSerialNumber:pchar;constIDENTIFY_BUFFER_SIZE=512;typeTIDERegs=packedrecordbFeaturesReg:BYTE;//UsedforspecifyingSMART"commands".bSectorCountReg:BYTE;//IDEsectorcountregisterbSectorNumberR…
类别:硬件 标签: 作者:admin 日期:2018-01-23 15.37.58

delphi 根据盘符弹出U盘

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,EjectUSB,StdCtrls;//EjectUSBhttp://www.delphitop.com/html/danyuan/3578.htmltypeTForm1=class(TForm)Edit…
类别:硬件 标签: 作者:admin 日期:2018-01-23 15.27.21

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

{获得磁盘驱动器序列号}functionGet_HD_Serial(constDrivedir:Char):string;varNu:DWORD;Vf:DWORD;VolumeInfo:array[0..MAX_PATH]ofChar;V_n:DWORD;beginGetVolumeInformation(PChar(Drivedir+':\'),nil,SizeOf(Volu…
类别:硬件 标签: 作者:admin 日期:2018-01-15 19.54.51

Delphi下CPU GetCPUID实现(x86和x64)

Delphi东京版FireDAC连接MSSQL2000在Delphi10.2.1东京版中,FireDAC默认不兼容MSSQL2000,会提示“[FireDAC][Phys][ODBC][Microsoft][ODBCSQLServerDriver][SQLServer]对象名'SYS.DATABASES'无效。”的错误,…
类别:硬件 标签: 作者:admin 日期:2018-01-08 20.19.31

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

usesedid;procedureT****1.Button1Click(Sender:T****);varAMonitors:TPnpMonitors;I:Integer;beginAMonitors:=TPnpMonitors.Create(Self);Memo1.Lines.Add('显示器数量:'+IntToS****(AMonitors.Count));for…
类别:硬件 标签: 作者:admin 日期:2018-01-05 17.56.00

delphi 全面获取 CPU 信息

unituntCpuInfo;interface{获取CPU制造商}functionGetCpuFactory:String;{获取CPU家族系统}functionGetCpuFamily:Cardinal;{获取CPU型号}functionGetCpuModel:Cardinal;{获取CPU步进}functionGetCpuStepping:Cardina…
类别:硬件 标签: 作者:admin 日期:2017-03-15 19.55.39

Delphi 移除U盘的两种方法

1.CreateFile,DeviceIoControl,CloseHandle2.SetupDiGetClassDevs,SetupDiEnumDeviceInfo,CM_Get_DevNode_Status,CM_Request_Device_Eject我用了2种U盘试验:一种是普通的U盘,一种是手机模拟的U盘方法1对两种U盘均无效…
类别:硬件 标签: 作者:admin 日期:2016-01-20 22.33.56

Delphi侦测条码枪方式

条码枪的原理其实很简单,就是一个仿键盘输入的机器。放上一个Edit元件,接著setfocus后在edit的keypress检查enter(#13)就行了procedureTForm1.EdtBarcodeKeyPress(Sender:TObject;varKey:Char);beginifkey=#13thenb…
类别:硬件 标签: 作者:admin 日期:2014-11-24 20.52.36

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

<divstyle="background-image:none!important;box-sizing:content-box!important;border-bottom:0px;position:static!important;text-align:left;border-left:0px;padding-bottom:0px!important;text-transform:none…
类别:硬件 标签:POS POS机 作者:admin 日期:2014-06-09 09.53.48

如何判断硬盘是Fat32还是NTFS

varVolumeName,FileSystemName:array[0..255]ofchar;size1,size2:cardinal;VolumeSerialNumber:DWORD;beginGetVolumeInformation('c:\',VolumeName,256,@VolumeSerialNumber,size1,size2,FileSystemName,256);ShowMe…
类别:硬件 标签: 作者:admin 日期:2014-04-16 21.49.04

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

{获取SCSI硬盘出厂系列号需要系统管理员权限,不支持磁盘阵列这里只取了第0个或第1个硬盘的序列号}functionGetScsiSerialNumber(consti:smallint):string;typeTScsiPassThrough=recordLength:Word;ScsiStatus:Byte;P…
类别:硬件 标签: 作者:admin 日期:2014-04-16 21.45.26

Delphi XE 取得硬盘序列号代码

functionGetIdeSerialNumber:pchar;constIDENTIFY_BUFFER_SIZE=512;typeTIDERegs=packedrecordbFeaturesReg:BYTE;//UsedforspecifyingSMART"commands".bSectorCountReg:BYTE;//IDEsectorcountregisterbSectorNumberR…
类别:硬件 标签: 作者:admin 日期:2013-11-25 20.36.58

delphi XE2 硬盘序列号

//获取硬盘序列号functionGetVolumeID:string;varvVolumeNameBuffer:array[0..255]ofChar;vVolumeSerialNumber:DWORD;vMaximumComponentLength:DWORD;vFileSystemFlags:&...
类别:硬件 标签: 作者:admin 日期:2013-11-12 11.01.54

Delphi 移除U盘的两种方法

1.CreateFile,DeviceIoControl,CloseHandle2.SetupDiGetClassDevs,SetupDiEnumDeviceInfo,CM_Get_DevNode_Status,CM_Request_Device_Eject我用了2种U盘试验:一种是普通的U盘,一种是手机模拟的U盘方法1对两种U盘均无效…
类别:硬件 标签: 作者:admin 日期:2013-03-25 15.56.32

delphi xe-xe3下最简单的获取硬盘序列号

delphixe-xe3下最简单的获取硬盘序列号functionGetVolumeID:string;varvVolumeNameBuffer:array[0..255]ofChar;vVolumeSerialNumber:DWORD;vMaximumComponentLength:DWORD;vFileSystemFlags:DWORD;vFileSystemNameBu…
类别:硬件 标签: 作者:admin 日期:2013-03-08 22.15.36

delphi XE 获取硬盘ID序列号

functionGetIdeSerialNumber:AnsiS****ing;s****call;constIDENTIFY_BUFFER_SIZE=512;typeTIDERegs=packedrecordbFeaturesReg:Byte;//UsedforspecifyingSMART"commands".bSectorCoun****eg:Byte;//IDEsector…
类别:硬件 标签: 作者:admin 日期:2013-01-24 12.45.14

delphi 完美获取硬盘ID

functionGetHDSerialNo:string;beginResult:=GetIdeHDSerialNo;ifLength(Result)=0thenResult:=GetScsiHDSerialNo;end;functionGetIdeHDSerialNo:string;constIDENTIFY_BUFFER_SIZE=512;typeTIDERegs=packedrecordbF…
类别:硬件 标签: 作者:admin 日期:2012-05-21 12.13.27