黑夜彩虹 发表于 2006-6-19 10:44:17

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

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

接口定义:

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 of Char;
begin
FillChar(OutputStr,SizeOf(OutputStr),#0);
if GetHDSerial(OutputStr) then
    Edit1.Text:=trim(OutputStr);
end;

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

cd37ycs 发表于 2006-6-26 18:03:34

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

ylb88 发表于 2007-3-27 19:08:01

好象用处不大呀

暗笛飞声 发表于 2007-10-17 17:22:23

不知道怎么用,,

sdprtf 发表于 2007-11-22 10:18:46

好东西啊,谢谢楼主

886788 发表于 2008-1-2 22:29:37

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

snowfox 发表于 2008-1-4 00:09:01

其他语言有如果?

gang___feng 发表于 2008-1-4 16:47:19

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

886788 发表于 2008-2-10 09:43:59

不错啊/:good /:002

tomtory 发表于 2008-11-6 20:33:17

易语言怎么调用?
能否帮函数调用写详细点?
多谢!
页: [1] 2
查看完整版本: 用于获取硬盘物理系列号,不需要管理员权限