用于获取硬盘物理系列号,不需要管理员权限

黑夜彩虹

功能：
获取硬盘物理系列号,不需要管理员权限。

接口定义：

BOOL WINAPI GetHDSerial(
LPTSTR lpSerial
);

参数：
lpSerial为硬盘的物理系列号。

返回值：
如果函数调用成功，返回TRUE，同时返回系列号到lpSerial中；如果调用失败则返回FALSE。

Delphi为例：
unit DiskSerialUnit;

interface

function GetHDSerial(lpSerial:PChar):Boolean;stdcall;external 'DiskSerial.dll';
function GetBEVersion(lpOutput:PChar):Boolean;stdcall;external 'DiskSerial.dll';

implementation

end.

================================
implementation
uses DiskSerialUnit;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  OutputStr:array[0..60] of Char;
begin
  FillChar(OutputStr,SizeOf(OutputStr),#0);
  if GetHDSerial(OutputStr) then
    Edit1.Text:=trim(OutputStr);
end;

[ 本帖最后由 黑夜彩虹 于 2006-6-19 10:46 编辑 ]

cd37ycs

固定了所取硬盘的序号，不是很好。

ylb88

好象用处不大呀

暗笛飞声

不知道怎么用,,

sdprtf

好东西啊，谢谢楼主

886788

谢谢楼主:loveliness: 感谢分享！！

snowfox

其他语言有如果？

gang___feng

实际上可在网上找到vc的例子的

886788

不错啊/:good /:002

tomtory

易语言怎么调用?
能否帮函数调用写详细点?
多谢!