Работа с CD/DVD приводом
Программно открыть 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]