[vl1639]

Можно ли написать ехе-шник, запуская который открывался бы лоток дисковода.

[NumLock]

у самого ребенок кнопку на приводе выдрал)))

Код:

procedure DoDiskEject(Eject: Boolean);
begin
  if Eject then mciSendString('set cdaudio door open', nil, 0, 0)
  else mciSendString('set cdaudio door closed', nil, 0, 0);
end;

True - открыть, False - закрыть

http://zalil.ru/34651585

Левый клик на иконку в трее - меню, правый клик - открыть/закрыть. горячие клавиши в меню написаны.

[Страдалецъ]

Дисковода? Если вы про 5,25 то никак, а вот для 3,5 вроде как можно подать команду на выброс дискеты. Но вот найти сейчас исходники для доса сейчас проблематично.

[vl1639]

to Cтрадалецъ
to NumLock
Спасибо!