高手赐招(100分)

C

cm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #1

procedure TForm1.Button1Click(Sender: TObject);
var
SerialNum: PDWord;
a, b : DWord;
Buffer : array [0..255] of Char;
begin
if GetVolumeInformation('c:/', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then
Caption := IntToStr(SerialNum^);
end;


上面的程序取c盘序列号，运行正确
但是
把Caption := IntToStr(SerialNum^);
替换为（s：stringyi已定义） s:=IntToStr(SerialNum^);
就出错，为什么？如何解决

 

C

cm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #2

大家多帮忙
急用

 

S

snowtree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #3

是吗？
你可以跟踪看看SerialNum
的值

 

C

cm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #4

不止是计算值出错
而是程序崩溃，好像不让访问

 

会

会飞了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #5

var SerialNum: DWord;
a, b : DWord; Buffer : array [0..255] of Char;
s:string;
begin
if GetVolumeInformation('c:/', Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then
Begin
s := IntToStr(SerialNum);
Caption := IntToStr(SerialNum);
End;
End;
PDWORD没有分配空间，显然要出错
以上通过测试

 

C

cm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #6

那为什么，把它赋值给caption就可以
实在想不通

 

会

会飞了

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #7

Caption是一个属性,向它附值会得到保护,你的写法并非没有获得序列号,
只是将它放在一个任意区域,直接操作将被认为非法.

 

C

cm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-20

• #8

接受答案了.