如何获得硬盘的序列号？

[djiang]

请问在DELPHI中如何获得硬盘的序列号？

[盘谷]

procedure TForm1.Button1Click(Sender: TObject);
var
SerialNum: DWord;
A, B: DWord;
VolumeSerialNumber: string ;
Key: string ;
begin
Key:='';
if GetVolumeInformation(PChar('C:\'),
Nil, 0, @SerialNum, A, B, Nil, 0) then
VolumeSerialNumber := IntToHex(HiWord(SerialNum), 4) +
IntToHex(LoWord(SerialNum), 4);
Key := VolumeSerialNumber ;
Label1.Caption := Key ;
end;

得到C盘的序列号，记得给分，我比较烦别人不给分，因为我的分快没了！

[zxghl]

加密么？有API函数，我做过，不过这时候记不清了，有兴趣可以和我联系。
不过提醒你硬盘和软盘格式化后，系列号是随机分配的！
[e-mail]
至于硬盘的OEM信息，没试过，谁知道通知一下。

[potato]

我也想知道。

[wang1st]

编VXD可解决问题
我编了一个，要的话去我主页留言
http://hotstore.yeah.net