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