Программно открыть dvd привод:
[cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»]
mciSendString(‘set cdaudio door open wait’,nil,0,0); // uses , mmsystem;
[/cc]
Программно закрыть (если поддерживается железом) dvd привод:
[cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»]
mciSendString(‘set cdaudio door closed wait’,nil,0,0); // работает только когда в системе 1 физический dvd привод.
[/cc]