VC编写的DLL，可以获得硬盘的型号、序列号以及计算机 ID，

带Delphi的源程序，在Win2K下通过，但是没有在Win9X下试过，

感兴趣的朋友可以在Win9X 下试一下，或者编写一个VB的范例。

函数以及定义：
function ReadPhysicalDrive(driveID:integer;buffer:Pointer;bufLen:integer):integer; stdcall;

external　DiskID.dll　name　ReadPhysicalDriveInNT ;

获得WinNT下的硬盘型号以及序列号。参数driveID为硬盘的位置，

IDE1上的主盘为0，类推到IDE2上的从盘的driveID为3。

function ReadPhysicalDrive9X

(driveID:integer;buffer:Pointer;bufLen:integer):integer; stdcall;

external　DiskID.dll　name　ReadDrivePortsInWin9X ;

获得Win9X下的硬盘型号以及序列号。参数同上

function getHardDriveComputerID:int64; stdcall; external　DiskID.dll　

name　getHardDriveComputerID ;
获得计算机的ID