小弟已經從各位前輩的文章，學會自動偵測CD-ROM是否已放入光碟片的方法。 但是，可否進一步請教，是否有什麼方法可以自動偵測，是那一部光碟機被放入光碟片呢？

參考這裡吧 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/devio/base/detecting_media_insertion_or_removal.asp

感謝您的指導。 可是，請問有沒有Delphi 的解說或範例呢？因為我對C 不熟！ 發表人 - morris_lee 於 2005/03/08 17:38:26

請參考 http://www.undu.com/Articles/980221b.htm "Notification of CD-ROM insertion and removal" (Delphi)    您可以下載作者已經製作好的元件和函式檔 http://www.undu.com/LIBS/cdevents.zip    使用方式 sample

unit main;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CDEvents;    type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    procedure AfterArrival(Sender: TObject; Drive: Char);
    procedure AfterRemove(Sender: TObject; Drive: Char);        { Private declarations }
  public
    CDEvt:TCDEvents;
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.AfterArrival(Sender: TObject; Drive:Char);
begin
   Showmessage('Detect '   Drive   ': Disk arrival');
end;    procedure TForm1.AfterRemove(Sender: TObject; Drive:Char);
begin
   Showmessage('Detect '   Drive   ': Disk removed');
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
   CDEvt:=TCDEvents.Create(self);
   CDEvt.AfterArrival:=AfterArrival;
   CDEvt.AfterRemove:=AfterRemove;
end;    procedure TForm1.FormDestroy(Sender: TObject);
begin
   CDEvt.Free;
end;    end.

＠瞭解越多.懂得越少＠

你好: 試試下面的方法，這是取得所有CD-ROM的磁碟機代號和判斷有無光碟片的方法。

//uses Windows;
Function GetCDList : String;
Var   I: Integer;
 Drives: Integer;
    Tmp: String;
begin
    Drives := GetLogicalDrives;
    Result := '';
// units A=0 to el Z=25
    For I := 0 To 25 Do
        If (((1 Shl I) And Drives)<>0) Then
        Begin
            Tmp := Char(65 I) ':\';
            If (GetDriveType(PChar(Tmp))=DRIVE_CDROM) then
            begin
                if DiskSize(Ord(Char(65 I))-$40) <> -1 then
                    ShowMessage('Disk in drive ' Char(65 I) ': !');
                Result := Result Char(65 I);
            end;
       End;
End;    procedure TForm1.Button1Click(Sender: TObject);
begin
    GetCDList;
end;

希望以上的方法，對你有幫助。 發表人 - linmon416 於 2005/03/11 10:26:23 發表人 - linmon416 於 2005/03/11 11:29:31

感謝各位大大的指導，我的問題已經解決了。 萬分感激 ^_^