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

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

delphi获取U盘序列号的代码

constDIGCF_PRESENT=$00000002;DIGCF_DEVICEINTERFACE=$00000010;ANYSIZE_ARRAY=1;SetupAPI='SetupAPI.DLL';typeHDEVINFO=Pointer;ULONG_PTR=DWORD;PSPDevInfoData=^TSPDevInfoData;SP_DEVINFO_DATA=packedrecordcbS…
类别:硬件 标签: 作者:admin 日期:2011-08-18 09.12.10

在Delphi中进行指纹仪的二次开发

在Delphi中进行指纹仪的二次开发一.指纹仪简介指纹具有"物证之首"的美誉。科学界对指纹的论断是:假设地球上有50亿人口,经过300年才会有两个相同的指纹出现。可见,指纹的唯一性是具有无可辩驳的地位。指纹仪第一次…
类别:硬件 标签: 作者:admin 日期:2011-08-18 09.10.46

delphi获取优盘的ID

delphi获取优盘的IDfunctionGetUSBDiskID(constDiskID:string;varPID:string):Boolean;varUSBGuid:TGUID;USBHandle:HDEVINFO;Success:LongBool;Devn:Integer;DevData:TSPDevInfoData;DeviceInterfaceData:TSPDeviceI…
类别:硬件 标签: 作者:admin 日期:2011-08-11 09.04.51

delphi检测程序是否在优盘上运行

varDrv,Pid:string;beginDrv:=ExtractFileDrive(ParamStr(0));ifGetDriveType(PChar(Drv+'\'))<>DRIVE_REMOVABLEthenbeginApplication.MessageBox('对不起,请把本程序放至到优盘上使用!','致命性错误',MB_ICONHAND)…
类别:硬件 标签: 作者:admin 日期:2011-08-11 09.02.52

Delphi代码获取网卡物理地址三种方法

Delphi代码获取网卡物理地址三种方法.
类别:硬件 标签: 作者:admin 日期:2010-08-19 00.42.59

Delphi控制摄像头

Delphi控制摄像头.
类别:硬件 标签: 作者:admin 日期:2010-05-28 13.56.41

Delphi获取硬件信息

Delphi获取硬件信息.
类别:硬件 标签: 作者:admin 日期:2010-05-23 21.11.45

用Delphi通过SetupAPI.dll列举和停用硬件设备

用Delphi通过SetupAPI.dll列举和停用硬件设备.
类别:硬件 标签: 作者:admin 日期:2010-05-21 16.17.43

Delphi硬盘序列号修改器源码

Delphi硬盘序列号修改器源码.
类别:硬件 标签: 作者:admin 日期:2010-05-09 13.18.36