获得硬盘的序列号 (2001年4月4日).txt

delphi 编程技巧

获得硬盘的序列号 (2001年4月4日) 

网友更新  分类:系统   作者:GZCYP  推荐:GZCYP   阅读次数:359  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
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;