請問要如何判斷光碟機內的光碟為何種格式? 如:Audio CD Data CD 或是沒有CD TOMMY

------
TOMMY

How determine if a CD is a Audio CD. Uploader: Enrique Ortu隳 Question/Problem/Abstract: Is my CD a Audio CD? Answer: Create a function :

Function AudioCD(Drive : Char) : Boolean; 
Var 
  FSFlags, MaxLength: DWORD; 
  VolName, Path : String; 
Begin 
  Path := Drive   ':\'; 
  Result := FALSE; 
  if (GetDriveType(PChar(Path)) = DRIVE_CDROM) then begin 
    SetLength(VolName, 64); 
    GetVolumeInformation(PChar(Path), PChar(VolName), Length(VolName), nil, MaxLength, FSFlags, nil,0); 
    if (lStrCmp(PChar(VolName),'Audio CD') = 0) Then 
      Result := TRUE; 
  end; 
end;

引言: How determine if a CD is a Audio CD. Uploader: Enrique Ortu隳 Question/Problem/Abstract: Is my CD a Audio CD? Answer: Create a function :

Function AudioCD(Drive : Char) : Boolean; 
Var 
  FSFlags, MaxLength: DWORD; 
  VolName, Path : String; 
Begin 
  Path := Drive   ':\'; 
  Result := FALSE; 
  if (GetDriveType(PChar(Path)) = DRIVE_CDROM) then begin 
    SetLength(VolName, 64); 
    GetVolumeInformation(PChar(Path), PChar(VolName), Length(VolName), nil, MaxLength, FSFlags, nil,0); 
    if (lStrCmp(PChar(VolName),'Audio CD') = 0) Then 
      Result := TRUE; 
  end; 
end;

感謝hagar前輩的再次幫忙 不過....小弟呆呆 已經將程式加入 但是在退片時 仍然保持原來的訊息耶

TOMMY 發表人 - tommy 於 2002/06/20 14:06:29

假設光碟機在 D 槽

procedure TForm1.Button1Click(Sender: TObject);
begin
  if AudioCD('D') then
    ShowMessage('是 Audio CD')
  else
    ShowMessage('是 Data CD')
end;

不過這兒得先確定光碟機內有光碟, 底下是判斷方法: It's easy if we capture the WM_DEVICECHANGE message: Put this line into private section of your form's declaration:

   private
     { Private declarations }
     {Esta Linea/This line}
     procedure WMDeviceChange(var Msg: TMessage);message WM_DEVICECHANGE;

(With this, we capture the message, sending to our own treatment procedure) Put this procedure into implementation part of your form:

procedure TForm1.WMDeviceChange(var Msg: TMessage);
const
  CD_METIDO                = $8000;
  CD_SACADO                = $8004;
var
  Aviso : String;
begin
  inherited;
  case Msg.wParam of
    CD_METIDO        : Aviso := 'CD Insertado';
    CD_SACADO        : Aviso := 'CD Sacado';
  end;
  ShowMessage(Aviso);
end;

發表人 - hagar 於 2002/06/20 14:09:35