کنترل Cd Rom

[mviran2007]

باسلام

من می خواهم از طریق برنامه متوجه بشوم که چه وقت در CdRom باز است و چه وقت بسته شده است خواهشمند است راهنمایی بفرمایید که چگونه می توانم این مسئله را کنترل نمایم. با تشکر

[Hamid_PaK]

تا جایی که من می دونم حتی ویندوز هم امکان چنین کاری را ندارد ، تنها می توان درب آن را باز و بسته کرد.

یا حق ...

[farhad110]

سلام


procedure TForm1.WMDeviceChange(var Msg: TMessage);
const
DBT_DEVICEARRIVAL = $8000;
DBT_DEVICEREMOVECOMPLETE = $8004;
var
myMsg: string;
begin
inherited;
case Msg.wParam of
DBT_DEVICEARRIVAL: myMsg := 'CD inserted!';
DBT_DEVICEREMOVECOMPLETE: myMsg := 'CD removed!';
end;
ShowMessage(myMsg);
end;

در قسمت private هم نام پروسیجر را وارد کنید:



procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;


موفق باشید

[AlirezaBahredar]

یک مثال ساده......برگرفته شده از سایتhttp://www.swissdelphicenter.ch