检测光盘是否正确

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;

转载于:https://www.cnblogs.com/caowei-it/archive/2013/01/06/4145803.html