http://www.entechtaiwan.com/tools.htm下载控件vichw32,随便解密一下即可得到厂家序列号硬序号

解决方案 »

  1.   

    http://lu0.126.com
    刚发表了一片如何在95/98/ME/NT/2000下获取硬盘序列号的信息.
      

  2.   

    在灰衣老僧的程序员天堂(http://best.163.com/~easyp/)中的编程工具里有tvicport,可以轻松搞定。
      

  3.   

    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;
      

  4.   

    lu0的主页果然大补!不过大部分是VC的,可惜我用Delphi! :(
      

  5.   

    什么时候DELPHI和BCB能有这样的好主页就好了。