虾们来救救饿吧：（(50分)

如何获得光驱的状态，如弹出，弹入

有控件cdevent,到www.csdn.net上下载，可以直接获得cd状态，label等

procedure TForm1.Button1Click(Sender: TObject);
var
; dwTemp1,dwTemp2: DWord;
; NResult: DWORD;
begin
; new(NResult);
; GetVolumeInformation(PChar('g:/'), Nil, 0, @Result, dwTemp1, dwTemp2, Nil, 0);
; if Result = 0 then
; ; ShowMessage('CDROM is not Ready!');
end;

to zzy73:你的只能检测是否有盘，我要的是检测光驱托盘的状态：）

高手呢？
快来帮帮我呀；）

unit uDriveTools;

interface

uses Windows,SysUtils,MMSystem;

function CloseCD(Drive:Char):Boolean;
function OpenCD(Drive:Char):Boolean;

implementation

function OpenCD(Drive:Char):Boolean;
var Res:MciError;
; ; OpenParm:TMCI_Open_Parms;
; ; FlagsWord;
; ; s:string;
; ; DeviceID:Word;
begin
; Result:=false;
; s:=Drive+':';
; Flags:=mci_Open_Type or Mci_Open_Element;
; With OpenParm do
; begin
; ; dwCallBack:=0;
; ; lpstrDeviceType:='CDAudio';
; ; lpstrElementName:=PChar(s);
; end;
; Res:=mciSendCommand(0,mci_Open,Flags,LongInt(@OpenParm));
; If RES<>0 then exit;
; DeviceID:=OpenParm.wDeviceID;
; try
; ; Res:=mciSendCommand(DeviceID,MCI_SET,MCI_SET_DOOR_OPEN,0);
; ; IF RES=0 then exit;
; ; Result:=True;
; finally
; ; mciSendCommand(DeviceID,mci_Close,Flags,Longint(@OpenParm));
; end;
end;

function CloseCD(Drive:Char):Boolean;
var Res:MciError;
; ; OpenParm:TMCI_OPEN_PARMS;
; ; FlagsWord;
; ; s:string;
; ; DeviceID:Word;
begin
; Result:=False;
; S:=Drive+':';
; Flags:=mci_Open_Type or Mci_Open_Element;
; With OpenParm do
; begin
; ; dwCallBack:=0;
; ; lpstrDeviceType:='CDAudio';
; ; lpstrElementName:=PChar(s);
; end;
; Res:=mciSendCommand(0,mci_Open,Flags,LongInt(@OpenParm));
; if Res<>0 then exit;
; DeviceID:=OpenParm.wDeviceID;
; try
; ; Res:=mciSendCommand(DeviceID,MCI_SET,MCI_SET_DOOR_CLOSED,0);
; ; If Res=0 then exit;
; ; Result:=True;
; finally
; ; mciSendCommand(DeviceID,mci_Close,Flags,LongInt(@OpenParm));
; end;
end;

end.

应用:
procedure TForm1.Button1Click(Sender: TObject);
begin
; OpenCD('E');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
; CloseCD('E');
end;

mci 只能完成弹出和弹入的功能，要得到托盘的状态只能访问光驱的驱动程序。

大侠们说这问题太简单了。

谢谢各位虾们，见者有份

多人接受答案了。