procedure TForm1.Button1Click(Sender: TObject);
var
i,DriveType:Integer;
c:String;
buf:array[0..MAX_PATH] of char;
sno,fileflag,maxl:DWORD;
volname,filesysname:PChar;
begin
GetMem(volname, 255);
for i:=65 to 90 do
begin
c:=chr(i)+':\';
DriveType:=GetDriveType(PChar(c));
if DriveType=DRIVE_CDROM then
begin
volname^ := Chr(0);
filesysname^ := Chr(0);
if GetVolumeInformation(PChar(c),volname,250,LPDWORD(@sno),LPDWORD(@maxl)^, LPDWORD(@fileflag)^, filesysname,100)then
begin
if CompareText(volname,'光盘名称')=0 then
showmessage('光盘正确插入')
else Showmessage('插入的光盘不正确');
end
else showmessage('光盘未正确插入');
end;
end;
end;
var
i,DriveType:Integer;
c:String;
buf:array[0..MAX_PATH] of char;
sno,fileflag,maxl:DWORD;
volname,filesysname:PChar;
begin
GetMem(volname, 255);
for i:=65 to 90 do
begin
c:=chr(i)+':\';
DriveType:=GetDriveType(PChar(c));
if DriveType=DRIVE_CDROM then
begin
volname^ := Chr(0);
filesysname^ := Chr(0);
if GetVolumeInformation(PChar(c),volname,250,LPDWORD(@sno),LPDWORD(@maxl)^, LPDWORD(@fileflag)^, filesysname,100)then
begin
if CompareText(volname,'光盘名称')=0 then
showmessage('光盘正确插入')
else Showmessage('插入的光盘不正确');
end
else showmessage('光盘未正确插入');
end;
end;
end;