小
小唐
Unregistered / Unconfirmed
GUEST, unregistred user!
下面这段代码是取得电脑中硬盘的序列号，但在我的电脑上怎么也实现不了，
不知怎么回事。编译运行都没问题，就是得不到硬盘的序列号。不知你有什么办法？
读硬盘序列号：
procedure TForm1.Button1Click(Sender: TObject);
var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char;
begin
if GetVolumeInformation('c:/', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then
Label1.Caption := IntToStr(SerialNum^);
end;
不知怎么回事。编译运行都没问题，就是得不到硬盘的序列号。不知你有什么办法？
读硬盘序列号：
procedure TForm1.Button1Click(Sender: TObject);
var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char;
begin
if GetVolumeInformation('c:/', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then
Label1.Caption := IntToStr(SerialNum^);
end;
