在win98下如何读取硬盘的序列号???急急急!!!请大侠们帮个忙!!!(100分)

  • 主题发起人 主题发起人 hyy981345
  • 开始时间 开始时间
H

hyy981345

Unregistered / Unconfirmed
GUEST, unregistred user!
在win98下如何读取硬盘的序列号???急急急!!!请大侠们帮个忙!!!<br>win2000下可以读出,但win98下却不行,<br>不知哪位大侠能赐教,不胜感激,分数不够可再加!!!!!
 
在计算机中的注册表中有记录。具体那个现在忘了,你找一个注册表相关的书籍看一下。
 
检索一下
 
function GetHDSN9598: string;<br>var<br>&nbsp; s:string;<br>&nbsp; a: Char;<br>&nbsp; i:integer;<br>begin<br>&nbsp; GetIDEInfo;<br>&nbsp; for i:=0 to 9 do<br>&nbsp; begin<br>&nbsp; &nbsp; a := chr(pw[10+i]shr 8);<br>&nbsp; &nbsp; if a = #0 then<br>&nbsp; &nbsp; &nbsp; a := ' ';<br>&nbsp; &nbsp; s := s+a;<br>&nbsp; &nbsp; a := chr(pw[10+i]and $FF);<br>&nbsp; &nbsp; if a = #0 then<br>&nbsp; &nbsp; &nbsp; a := ' ';<br>&nbsp; &nbsp; s := s+a;{}<br>&nbsp; end;<br>&nbsp; Result := s;<br>end;<br>
 
GetIDEInfo;是什么来的?<br>
 
后退
顶部