Delphi读取硬盘序列号源代码

之前传的没注意，丢了两个pas文件，这次肯定可以用了。而且不要分了。之前的不要下载了。 C++源码转换过来的 基本函数： function ReadIdeDriveAsScsiDriveInNT(var Dest: tresults_array_dv): Boolean; function ReadDrivePortsInWin9X(var Dest: tresults_array_dv): Boolean; function ReadPhysicalDriveInNTWithZeroRights(var Dest: tresults_array_dv): Boolean; function ReadPhysicalDriveInNTUsingSmart(var Dest: tresults_array_dv): Boolean; function ReadPhysicalDriveInNTWithAdminRights(var Dest: tresults_array_dv): Boolean; 以上是几个不同环境下使用的函数，Win7下要以管理员身份运行才会有结果。Raid磁盘无法读取。