?? 獲得硬盤的序列號 (2001年4月4日).txt
字號:
獲得硬盤的序列號 (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;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -