硬盘序列号(150分)

  • 主题发起人 主题发起人 ntstudio
  • 开始时间 开始时间
N

ntstudio

Unregistered / Unconfirmed
GUEST, unregistred user!
用以下语句取出了硬盘序列号之后,它是DWORD型的,怎将其
SHOWMESSAGE(???)出来,又怎将其存到TABLE中去,字段类型是什么?


Function GetHDSer(HD:String):Dword;
var
a,b,Dword;
PResult:PDWord;
begin
New(PResult);
GetVolumeInformation(PChar(HD),Nil,0,PResult,a,b,nil,0);
Result:=PResult^;
Dispose(PResult);
end;
 

ShowMessage(IntToStr(GetHDSer('asd')));

type DWORD = Longword;

Type Range Format
Shortint ?28..127 signed 8-bit
Smallint ?2768..32767 signed 16-bit
Longint ?147483648..2147483647 signed 32-bit
Int64 ?^63..2^63? signed 64-bit
Byte 0..255 unsigned 8-bit
Word 0..65535 unsigned 16-bit
Longword 0..4294967295 unsigned 32-bit
I
 
1 intToStr
2.FieldByName('HDSer').AsInteger=GetHDSer('C:/');
 
这样得到的是逻辑驱动器的卷标号(Volumn), 不是硬盘厂家的那个
 
接受答案了.
 
我觉得应该是这样:ShowMessage(IntToStr(INTEGER(GetHDSer('asd'))));

 
后退
顶部