Открыть сидивертку можно так:
...
uses ...,mmsystem;
...
procedure TForm1.FormClick(Sender: TObject);
var op:mci_open_parms;
gp:mci_generic_parms;
sp:MCI_SET_PARMS;
begin
op.dwCallback:=handle;
op.lpstrDeviceType:='cdaudio';//см. system.ini раздел [mci]
mcisendcommand(0,mci_open,MCI_WAIT or MCI_OPEN_TYPE,cardinal(@op));
sp.dwCallback:=handle;
mcisendcommand(op.wDeviceID,mci_set,MCI_SET_AUDIO or MCI_SET_DOOR_OPEN,cardinal(@sp));
gp.dwCallback:=handle;
mcisendcommand(op.wDeviceID,mci_close,MCI_WAIT,car dinal(@gp));
end;
|