如何取得硬盘序列号？求助！

[fireegg]

如何取得硬盘序列号？我这里有取得某一盘符的序列号，但是如果遇到格式化或者分区后，取得的序列号就会不同？请问我如何才能取得真正的序列号，不会受这些原因的影响？谢谢各位赐教！

[xiaoxiaobai]

分太少了，想当初我问这个问题花了几百分。

具体是用 CreateFile

[songdan2002]

function GetHDSerialNumber(Drv : String): String;
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
begin
if Drv[Length(Drv)] =':' then Drv := Drv + '\';
GetVolumeInformation(pChar(Drv),
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags, VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
begin
if Drv[Length(Drv)] =':' then Drv := Drv + '\';
GetVolumeInformation(pChar(Drv),
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
nil,SystemFlags,
0);
Result := IntToHex(HiWord(VolumeSerialNumber), 4) +
'-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
end;

[stiwin]

http://www.delphibox.com/documentview.php?documentid=29


取Ide硬盘序列号函数

[atuchina]

朋友没有用的有的硬盘没有序列号!

[atuchina]

最好是使用网卡号但是有的机器没有网卡如果你的程序非常重要最好使用软件狗!

[atuchina]

成本就50（量大的情况下）,如csdn主页的一个软件狗!

[kuchong]

呵呵，我也想知道这个问题耶
提供解答的开贴送500分
[e-mail]