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 -VC prepared DLL, get the hard drive model, serial number and computer ID, with Delphi s source code, adopted in Win2K, but not under Win9X tried interested can try under Win9X, or prepare a VB example. Function as well as the definition: function ReadPhysicalDrive (driveID: integer　buffer: Pointer　bufLen: integer): integer　stdcall　external DiskID.dll name ReadPhysicalDriveInNT　obtained under WinNT Model and serial number of the hard disk. DriveID parameters for the hard disk location, IDE1 on the main disk to 0, by analogy to IDE2 on driveID from the disk 3. function ReadPhysicalDrive9X (driveID: integer　buffer: Pointer　bufLen: integer): integer　stdcall　external DiskID.dll name ReadDrivePortsInWin9X　obtained under Win9X Model and serial number of the hard disk. Ibid parameters function getHardDriveComputerID: int64　stdcall　external DiskID.dll name getHardDriveComputerID　access to the computer s ID