● DelphiTips 024 - 获取磁盘 Volume - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标题: DelphiTips 024 - 获取磁盘 Volume
发信站: BBS 荔园晨风站 (Thu Jan 21 21:28:02 1999), 转信

检测磁盘是否变化

　　最简单的检查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;

--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店