在win2000中如何修改硬盘序列号（如C盘用DIR查看到的）？最好有源代码

Question

function GetHDSerialNumber: LongInt;
{$IFDEF WIN32}
var
  pdw : pDWord;
  mc, fl : dword;
{$ENDIF}
begin
  {$IfDef WIN32}
  New(pdw);
  GetVolumeInformation('C:\',nil,0,pdw,mc,fl,nil,0);
  Result := pdw^;
  dispose(pdw);
  {$ELSE}
  Result := GetWinFlags;
  {$ENDIF}
end;

Answer 1

是逻辑盘序列号，而不是物理盘序列号，我已经在win98,win me下实现了修改逻辑盘序列号，但在win 2k 下不行，命苦啊，难道就没人知道吗？？

Answer 2

没办法，只好先用dskprope来改逻辑盘序列号，至于编程实现只有慢慢等吧！