獲得硬盤的序列號 (2001年4月4日) 

網(wǎng)友更新  分類:系統(tǒng)   作者:GZCYP  推薦:GZCYP   閱讀次數(shù):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;