Программно открыть 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]