软件使用一机一码加密delphi怎样实现?
我自己做了个软件，有一定的使用价值，不知道怎样利用一机一码的技术稍微保护一下自己的成果，有这方面经验的大哥大姐能否给予指点，有现成的代码就最好了，万分感谢。
来学习下。
搞个加密狗哈。
一般就是通过获取CPU或硬盘序列号,生成机器码,再根据机器码生成序列号。这样序列号就实现和硬件关联了。
根椐硬件配置生成对应序列号。
取Ide硬盘序列号函数
Delphi(Pascal) code:
function GetIdeDiskSerialNumber : String;
type
TSrbIoControl = packed record
HeaderLength : ULONG;
Signature : Array[0..7] of Char;
Timeout : ULONG;
ControlCode : ULONG;
ReturnCode : ULONG;
Length : ULONG;
end;
SRB_IO_CONTROL = TSrbIoControl;
PSrbIoControl = ^TSrbIoControl;
TIDERegs = packed record
bFeaturesReg : Byte; // Used for specifying SMART "commands".
bSectorCountReg : Byte; // IDE sector count register
bSectorNumberReg : Byte; // IDE sector number register
bCylLowReg : Byte; // IDE low order cylinder value
bCylHighReg : Byte; // IDE high order cylinder value
bDriveHeadReg : Byte; // IDE drive/head register
bCommandReg : Byte; // Actual IDE command.
bReserved : Byte; // reserved. Must be zero.
end;
IDEREGS = TIDERegs;
PIDERegs = ^TIDERegs;
TSendCmdInParams = packed record
cBufferSize : DWORD;
irDriveRegs : TIDERegs;
bDriveNumber : Byte;
bReserved : Array[0..2] of Byte;
dwReserved : Ar
相关问答：
Delphi 像亡国的南宋，试问这语言还有前途吗？
Win32开发不如C#；
面像对像开发不如JAVA；
系统开发不如VC++6.0；
能用性不如VB6.0；
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗？
......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS（创建VPN连接用）函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
各位大虾，小弟用的是ADO连接ACCESS数据库，用DBGrid显示查询的数据，我做的是个数据采集系统，根据不同的地址把数据放在ACCESS数据库中不同的表里面，现在我想查询某一段时间内所有表内的数据，并且在DBGrid中显示� ......
