delphi读硬盘序列号_获取硬盘序列号函数

1.delphi 获取主板唯一的ID信息以此来标识远程客户端。想问一下怎么获取这个I

2.如何制作注册机？用Delphi，只需要一些使用方法就可以了。

硬盘号可以用这个方法来获得

至于要怎么生成注册号，就看你的注册算法了

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;

delphi 获取主板唯一的ID信息以此来标识远程客户端。想问一下怎么获取这个I

全盘查找

procedure TFileManager.FindFileList(Path: string);

var

sr:TSearchRec;

fr:Integer;

sFind:string;

begin

...

fr:=FindFirst(sFind,faAnyFile,sr);

while fr=0 do

begin

if(sr.Attr=faDirectory)and(sr.Name<>'.')and(sr.Name<>'..') then

begin

...

FindFileList(sr.Name);//循环调用

end;

fr:=FindNext(sr);

end;

FindClose(sr);

end;

判断类型：

声明：

function GetDriverType(Path: Pchar): UINT;stdcall;external 'kernel32.dll' name 'GetDriveTypeA';

使用：

DType:integer;

begin

C:=ParamStr(0)[1]+':\';

Dtype:=GetDriverType(Pchar(C));

case Dtype of

DRIVE_UNKNOWN:;// = 0;

DRIVE_NO_ROOT_DIR:;// = 1;

DRIVE_REMOVABLE:;// = 2;移动硬盘！

DRIVE_FIXED:;// = 3;

DRIVE_REMOTE:;// = 4;

DRIVE_CDROM:;// = 5;

DRIVE_RAMDISK:;// = 6;

end;

如何制作注册机？用Delphi，只需要一些使用方法就可以了。

获取主板Bios信息 添加一个Tbutton和一个Tmemo组件到窗体并写如下代码到按钮的OnClick事宜： with Memo1.Lines do begin Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061)))); Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5)))); Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091)))); Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71)))); 以上代码在Win9X上运行经由过程。 end; _____________________________________________________网上找的

只要你把注册机发给一个用户,那么你就没有控制软件使用权的能力了,因为都可以用这个注册机来注册你的软件,除非你的注册机是基于网页的.离开网页不连接到网络就打不开.否则无论你的注册机代码写的多么精致,都没有用.软件产权保护,用交互式注册办法,即用户提供注册申请码,软件开发者根据申请杩给出注册码,用户再在软件中输入注册码,程序每次启动时,都检查注册码,如果没有注册码或者注册码不对,程序都不运行.

申请码,实际上就是用户电脑的主板序列号或者CPU序列号等等,注册码就是根据申请码进行加密后的二进制编码,当然这样做很容易被破解,必须加入密钥,所谓密钥,就是在申请码中再加入一些字符后再进行二进制编码,而加入的字符只有编程者自己知道,这样破解起来就有些难度了.或者说是无解