N
ntstudio
Unregistered / Unconfirmed
GUEST, unregistred user!
用以下语句取出了硬盘序列号之后,它是DWORD型的,怎将其
SHOWMESSAGE(???)出来,又怎将其存到TABLE中去,字段类型是什么?
Function GetHDSer(HD:String)word;
var
a,b,Dword;
PResultDWord;
begin
New(PResult);
GetVolumeInformation(PChar(HD),Nil,0,PResult,a,b,nil,0);
Result:=PResult^;
Dispose(PResult);
end;
SHOWMESSAGE(???)出来,又怎将其存到TABLE中去,字段类型是什么?
Function GetHDSer(HD:String)word;
var
a,b,Dword;
PResultDWord;
begin
New(PResult);
GetVolumeInformation(PChar(HD),Nil,0,PResult,a,b,nil,0);
Result:=PResult^;
Dispose(PResult);
end;