软件使用一机一码加密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免费一年会有人用吗？
......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
用DEDE打开一个DLL，找到需要的函数了，但是显示的都是汇编代码，看不懂，恳请高手驻足帮忙啊！
是一个KEYPRESS响应函数，功能是在按下enter后判断输入的字符，我想按照自己的需求跳转，但是
找不到位置，高手 ......
