Закрытие - открытие CD-ROM

unction Open_Close_CDROM(open:boolean;hWnd:HWND):boolean;
begin
if open then
mciSendString('Set cdaudio door open wait', nil, 0, hWnd) else
mciSendString('Set cdaudio door closed wait', nil, 0, hWnd);
end;