B
BDFan
Unregistered / Unconfirmed
GUEST, unregistred user!
我要返回 硬盘序列号
Var
SerialNum : pdword;
a, b : dword;
Result: String;
begin
GetVolumeInformation('C:/', nil, 0, SerialNum, a, b, nil, 0)
Result := IntToStr(SerialNum^);
end;
我想取得客户端硬盘的序列号,作为登录的身份验证。也就是取得序列号之后与服务器上的数据
比较,只有合法用户才能登录。
我要完成如下功能:(请看下文)
下文是用 VB 写的一个 OCX 控件,我想用 Delphi 完成,各位大侠帮帮我,分不够 我再加。
Var
SerialNum : pdword;
a, b : dword;
Result: String;
begin
GetVolumeInformation('C:/', nil, 0, SerialNum, a, b, nil, 0)
Result := IntToStr(SerialNum^);
end;
我想取得客户端硬盘的序列号,作为登录的身份验证。也就是取得序列号之后与服务器上的数据
比较,只有合法用户才能登录。
我要完成如下功能:(请看下文)
下文是用 VB 写的一个 OCX 控件,我想用 Delphi 完成,各位大侠帮帮我,分不够 我再加。