最简单的检查CD－ROM或是磁盘是否有过变化的方法 是检查其volume号码。 
你可以简单地运用下面的函数来返 回磁盘的volume系列号码 
GetDiskVolSerialID('E'), 函数代码如下： 
function GetDiskVolSerialID(cDriveName:char):DWord; 
var 
dwTemp1，dwTemp2：DWord; 
begin 
GetVolumeInformation(PChar(cDriveName+':l'), Nil,0,Result, dwTemp2, 
dwTemp2,Nil,0); 

end;