ialN, MaxCLength,FileSysFlag, FileSysName, 255);
label7.caption:=''你的硬盘卷标是：''+VolName;
label8.caption:=''你的硬盘序列号是：''+DecToHex(SerialN);
label9.caption:=''你的计算机名是：''+getcomputername;

IF getbios(1)<>'''' then
label10.caption:=''你的BIOS版本号是：''+getbios(1)
else
label10.caption:=''未取得BIOS版本号'';

if getbios(2)<>'''' then
label11.caption:=''你的BIOS序列号是：''+getbios(4)
else
label11.caption:=''未取得BIOS序列号'';

if getsystemtime<>'''' then
label12.caption:=''你的系统时间是：''+getsystemtime
else
label12.Caption:=''未取得系统时间'';

if getlocaltime<>'''' then
label13.caption:=''你的本地时间是：''+getlocaltime
else
label13.caption:=''未取得本地时间'';

if inttostr(DiskSize(3) div 1024)<>'''' then
label14.caption:=''你的系统硬盘空间是：''+inttostr(DiskSize(3) div 1024)
else
label14.caption:=''未取得系统硬盘间'';

procedure TForm2.Button2Click(Sender: TObject);
begin
Change2Ring0();
end;
以上有部份引用了网友的代码,在此申明.
由于以上操作需要在申明处加入：Winsock,Registry,NB30
以上方法在DELPHI5、WINDOWS98下通过。