高校问答商务属于服务业:求DELPHI 中得出硬盘号的代码？
来源：百度文库 编辑：高校问答 时间：2024/05/01 00:05:01
用DELPHI7编一个程序，想做一个注册的功能，可是不知道如何得到硬盘号？
还有，如何根据硬盘号和注册名生成注册号。
急需相关的代码，谢谢 ！
还有，如何根据硬盘号和注册名生成注册号。
急需相关的代码，谢谢 ！
硬盘号可以用这个方法来获得
至于要怎么生成注册号，就看你的注册算法了
procedure TForm1.FormCreate(Sender: TObject);
var
dw,dwTemp1,dwTemp2:DWord;
p1,p2:array[0..30] of char;
begin
GetVolumeInformation(PChar('c:\'),p1,20,@dw,dwTemp1,dwTemp2,p2,20);
edit1.text:=inttohex(dw,8);//系列号
end;
上网搜索一下吧~~~我也是搜索到相关代码的.
好象花了一天时间而已.
有的是封装成DLL的,有的是源码的.
根据硬盘号和注册名生成注册号这个也很好做,
最简单是XOR,复杂点的可以自己设密匙和加密规则,
具体怎么做懒得贴了,毕竟刚吃完饭又要做工了,还有分数不诱人.
看楼下的兄台的答案吧!
去delphi盒子里找吧~这东西早有人做成现成东西了。
网上关于这方面的教程，源代码也很多。。不行，把VC，或VB的翻成Delphi版的吧~
GetVolumeInformation(PChar('c:\'),p1,20,@dw,dwTemp1,dwTemp2,p2,20);
收了