Load/Eject functions for optical drives.

Suggestions and feature requests.
Locked
Message
Author
artman
Posts: 9
Joined: 06.03.2011, 22:47
Contact:

Load/Eject functions for optical drives.

#1 Post by artman » 09.03.2011, 10:58

Hi, I'd really love to see Load/Eject functions for optical drives.
For example, when a drive has selection on it (Alt+F1/F2) user can press [Del]/[Insert] buttons and it will work as Eject/Load correspondingly.

stedanarh
Posts: 37
Joined: 28.05.2010, 11:47
Contact:

Re: Load/Eject functions for optical drives.

#2 Post by stedanarh » 04.04.2011, 00:10

This is the code to do this:

Code: Select all

Uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MCISendString ('Set CDAudio Door Open Wait', Nil, 0, Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MCISendString ('Set CDAudio Door Closed Wait', Nil, 0, Handle);
end;

Locked

Who is online

Users browsing this forum: No registered users and 27 guests