请问获得硬盘序列号和光碟上的序列号的Window API函数是什么??谢谢??请各位多多帮帮忙哦,,十分感谢

解决方案 »

  1.   

    首先感谢il_liouyang(liouyang)支持哦,但是我还是不知道GetvolumeInformation怎么用哦,,各位大虾有谁能不能举个列子给我看看吗?谢谢
      

  2.   

    硬盘的很长!
    光盘的比较少!
    uses Windows, MMSystem;
    //////////////CDRom Utils////////////////////////////function GetdiskserilNum(ADrive: string): string;
    var
      VolumeName    : array[0..255] of char;
      FileSystemType   : array[0..255] of char;
      SerialNum    : DWORD;
      MaxFilenameLength   : DWORD;
      Flags     : DWORD;
    begin
      if (GetVolumeInformation(PChar(ADrive),
                               VolumeName,
                               256,
                               @SerialNum,
                               MaxFilenameLength,
                               Flags,
                               FileSystemType,
                               256)) then
      Result := (IntToHex(SerialNum shr 16, 3) +
                 IntToHex((SerialNum shl 16) shr 16, 4));
    end;
      

  3.   

    硬盘序列号为真正的物理序列号,
    而网上的大多都不是,
    我发个动太链接库给你吧!
    VC写的。
    声明:{$R *.dfm}function GetHDDID32Ex:pchar;stdcall;external 'GetHDDID32.dll';       //取硬盘序列号动态链接库
    使用:begin
      str := GetHDDID32Ex;   //取得确盘序列号
    end;
      

  4.   

    短消息内容
    Delphi Win32 SDK/API问题    /请教大虾们一个问题,,关于Windows API函数的问题,,(  jacknes009 (丁玉富) ),,你也可以发到我的油箱里,,我的油箱是
    [email protected],,谢谢你
    ----------------------------------------------------------------
    原贴内容:
    ----------------------------------------------------------------
    原贴内容:
    大哥,,可以帮我一个忙吗??怎样得到硬盘的序列号,,和光盘的序列号啊,,光盘的不太清楚,硬盘的知道。
    你的贴子在中哪?
      

  5.   

    to
      insert2003(高级打字员)   首先感谢你的帮助,,'GetHDDID32.dll'; 这个取硬盘序列号动态链接是系统本身带有的嘛??  我刚学动态库刚学到,,不怎么懂哦