如何获取硬盘ID号,主板ID号,和系统系列号 ( 积分: 20 )

不调用DLL,如何用函数获取硬盘ID号,主板ID号,和系统系列号???

不调用DLL,如何用函数获取硬盘ID号,主板ID号,和系统系列号???

反正都是调用api，就看用什么语言写了
你到delphi super page（用搜索引擎搜一下）里去看看
有几个获取大量系统信息的免费组件，很好用的

我这里正巧有一个，绝对好用，我的软件都是用的它，是C语言写的一个DLL控件，做共享软件注册很好的！
你可以去这里下载
http://www.softsky.cn/softsky/down.asp

Function GetHardDiskSerieNummer : string;
var
Teller : integer;
Lus : integer;
SerieNummer : array[0..24] of char;
begin
result := '';
Teller := 1;
for Lus := 1 to 8 do
begin
SerieNummer[Teller] := chr((HardDiskGegevens[10+Lus] div 256 ));
inc(Teller);
SerieNummer[Teller] := CHR((HardDiskGegevens[10+Lus] mod 256 ));
inc(Teller);
end;
result := SerieNummer;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
s,ss,sss,n: DWord;
a: integer;
aa: Pchar;
mdword;

begin
new(m);
getvolumeinformation(Pchar('D:'),nil,0 ,m,ss,sss ,nil,0);
begin
a:= m^;
Label2.Caption := FLoattostr(a);
dispose(m);
end;
Label6.Caption := FormatDateTime('yyyy-mm-dd',Now());
n := 30;
getmem(aa,30);
GetComputerName(aa,n);
Label7.Caption := aa;
Label8.Caption := Trim(Label6.Caption)+ Trim(Label7.Caption)+ Trim(Label2.Caption);
end;

谢谢