发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 3.2 检测CD－ROM或是其他
发信站: 哈工大紫丁香 (2000年09月01日13:49:53 星期五), 站内信件

检测CD－ROM或是其他磁盘是否有过变化。　 

　　最简单的检查CD－ROM或是磁盘是否有过变化的方法是检查其volume号码。你
可以简单地运用下面的函数来返回磁盘的volume系列号码GetDiskVolSerialID（′
E′），函数代码如下：
　　functionGetDiskVolSerialID（cDriveName：char）：DWord；
　　var
　　dwTemp1，dwTemp2：DWord；
　　begin
　　GetVolumeInformation（PChar（cDriveName＋′：ι′），
　　Nil，
　　0，
　　ΝResult，
　　dwTemp2，
　　dwTemp2，
　　Nil，0）；
　　end；

 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]