急！获取硬盘号的算法，为什么在WIN7下用不了

如题
用delphi获取硬盘号的程序，换到win7下就用不了了，还报错！
有知道的帮下帮，多谢了

解决方案 »

  1.   

    win7下不能获得正常,参考我以前回过的(这个是C++用WMI的)
    http://topic.csdn.net/u/20100323/14/88c92d01-d825-4cd6-bce1-c23dd1ab8f1d.html
    http://topic.csdn.net/u/20100325/10/7da75449-7391-4364-9e10-a00f527380cc.html
    delphi下WMI的编程,我也在多年前研究过:
    http://topic.csdn.net/t/20051226/12/4481498.htmlWMI功能相当强大但有些难度.你也可在网上找些资料
      

  2.   

    不会吧，win7下没问题呵，我用着的，试试这个函数function get_ypxlh:string;
    var
       dw,dwTemp1,dwTemp2:DWord;
       p1,p2:array[0..30] of char;
    begin
       get_ypxlh:='';
       GetVolumeInformation(PChar('c:\'),p1,20,@dw,dwTemp1,dwTemp2,p2,20);
       get_ypxlh:=inttohex(dw,8);//系列号
    end;
      

  3.   

    http://www.microsoft.com/china/technet/community/scriptcenter/resources/wmifaq.mspx