相关推荐

遍历USB设备，获取USB序列号

遍历USB设备，获取USB序列号 别人写的文章 VC

Delphi实现U盘加密狗

原帖见：http://hi.baidu.com/hacklzt/blog/item/3ab6a81f99b43817413417ca.html转过来做为参考之用。效果，只有当指定U盘插入才能打开该程序。该U盘的硬件序列号作为解密的密匙。代码如下：procedure TForm1.GetDiskKey;const drivers:array[0

Delphi实现硬盘序列号提取与应用

本文还有配套的精品资源，点击获取 简介：Delphi语言在桌面应用程序开发中具有强大的功能，本篇文章将深入探讨如何使用Delphi从硬盘提取序列号。硬盘序列号是每个硬盘的唯一标识符，通过访问Windows API中的 Ioctl 函数，我们可以获取该信息。通过创建PChar类型变量和调用 DeviceIoControl 函数，我们可以读取序列号，...

delphi 硬盘特理序列号

unit DiveID; interface //{$I CnPack.inc} uses Classes, Windows, SysUtils, ExtCtrls; const RelationCache = 2; RelationNumaNode = 1; RelationProcessorCore = 0; RelationProcessorPackage = 3; type TCacheType = (CacheUnified, CacheInstruction,

Win32_DiskDrive 硬盘 参数说明

Availability  --设备的状态。 BytesPerSector  --在每个扇区的物理磁盘驱动器的字节数。 Capabilities  --媒体访问设备的能力阵列。 CapabilityDescriptions  --更详细的解释为任何在功能阵列表示的访问设备的功能的列表 Caption  --对象的序列号 CompressionMethod  --设备所使用的算法或工具，以

Delphi通过机器码获得注册码的完整方案

通过机器码获得注册码的完整方案（转贴过来,留着看看） 想加密自己的软件，看过一些软件的作法，思路如下： 1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网 卡）。生成机器码代码 2、用户将该机器码EMAIL给我，我用该机器码生成一个注册码，发送给用户。注册码生成 代码 3、用户在程序中输入该注册码，程序逆算该注册码，与机器码核对，查看是否相符。注册 码逆算、核对代码，...

delphi 获取硬盘序列号、cpu号、bios号、网卡号

delphi 获取硬盘 序列号function GetIdeNum: String;type TSrbIoControl = packed record HeaderLength : ULONG; Signature : Array[0..7] of Char; Timeout : ULONG; ControlCode : ULONG;

使用Delphi获取系统信息

 l       使用Delphi获取系列信息 　　Delphi以其优良的可视化编程，灵活的Windows API接口，丰富的底层操作越来越受到编程爱好者的青睐。　　在Delphi中，通过调用Windows API，可以很方便地获取系统信息，这有助于我们编写出更好的Windows应用程序。以下程序在Delphi3.0 For Windows 9x下编译通过。　　一、 用GetD

查看硬盘物理序列号和卷标序列号

非常不错的软件，查看硬盘物理序列号和卷标序列号。

delphi获取硬盘序列号的dll代码，支持win7

library GetDiskSN; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your

关于用Delphi 来生成机器码及用MD5算法生成序列号的方法

关于用Delphi 来生成机器码及用MD5算法生成序列号的方法    先说明，这里的机器码我取的是网卡MAC,硬盘序列号及CPU序列号的合并字符串(代码是有选择性的粘贴)方法如下:type  TVolumeInformation = record  VolumeName                    : string;         //卷标  VolumeSerialN

读取硬盘序列号码Delphi代码片断

//取硬盘系列号: function GetIdeSerialNumber: pchar; //获取硬盘的出厂系列号；  const      IDENTIFY_BUFFER_SIZE = 512;  type      TIDERegs = packed record          bFeaturesReg: BYTE;          bSectorCountReg: BYTE;    

Delphi 获取硬盘ID信息

Delphi 获取硬盘ID信息函数。

Delphi小经验总结

1.实现用鼠标点住窗体的任意位置，拖动窗体procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);beginreleasecapture;perform(WM_SYSCOMMAND,$f012,0);end;2.//屏蔽系统功能键；      

VC获取硬盘的参数

 VC获取硬盘的参数 作者:flyfish 2010-3-29 获取硬盘的参数信息包括硬盘的大小，柱面数，每柱面磁道数，每磁道扇区数，每扇区字节数等 需要掌握的函数1 函数CreateFile获得设备句柄。 HANDLE CreateFile(    LPCTSTR lpFileName,                         // 文件名

DeviceIoControl获取硬盘信息

DeviceIoControl获取硬盘信息

Delphi获取硬盘序列号(支持IDE和SCSI硬盘)

完美获取硬盘序列号，支持IDE和SCSI硬盘，支持各版本操作系统。

Delphi 读取硬盘序列号

Delphi 读取硬盘序列号 包含源码 （窗体加载事件弹出序列号） 在D7环境下写的