помогите чайнику разобратся CD ромом

[ruslan21]

здраствуйте дорогие друзья я хотелбы уточнить такой момент вот в программе управление CD ромом написано следующий код но я одного не могу понять куда его вписать а так сильно охота разобратся

СПАИБО ВСЕМ КТО ПОМОГ С РЕШЕНИЕМ ЭТОЙ ГЛУПОЙ ПРОБЛЕМОЙ

function CDOpen(Drive: PChar): Boolean;
var
  Res: MciError;
  OpenParm: TMCI_Open_Parms;
  Flags: DWord;
  S: string;
  DeviceID: Word;
begin
  Result := false;
  S := Drive + ':';
  Flags := mci_Open_Type or mci_Open_Element;
  with OpenParm do
  begin
    dwCallback := 0;
    lpstrDeviceType := 'CDAudio';
    lpstrElementName := PChar(S);
  end;
  Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
  if Res <> 0 then
    exit;
  DeviceID := OpenParm.wDeviceID;
  try
    Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
    if Res = 0 then
      exit;
    Result := True;
  finally
    mciSendCommand(DeviceID, MCI_OPEN, Flags, Longint(@OpenParm));
  end;
end;
function CDClose(Drive: PChar): Boolean;
var
  Res: MciError;
  OpenParm: TMCI_Open_Parms;
  Flags: DWord;
  S: string;
  DeviceID: Word;
begin
  Result := false;
  S := Drive + ':';
  Flags := mci_Open_Type or mci_Open_Element;
  with OpenParm do
  begin
    dwCallback := 0;
    lpstrDeviceType := 'CDAudio';
    lpstrElementName := PChar(S);
  end;
  Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
  if Res <> 0 then
    exit;
  DeviceID := OpenParm.wDeviceID;
  try
    Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSE, 0);
    if Res = 0 then
      exit;
    Result := True;
  finally
    mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm)) else
  end;
end;
 
к стати вот с такими кодами я все прекрасно понимаю
procedure TForm1.Button1Click(Sender: TObject);
begin
CDClose(PChar(ComboBox1.Text);
end;

как я понимаю здесь надо зделать двойной счелчек по кнопки button1
и вести код

[sdp]

ruslan21, вы написали, что

...в программе управление CD ромом написано...

а потом вы пишите

куда его вписать

так в чем логика писать код, если он написан..
или вы не можете разобраться куда писать код, при разработке нового проекта?

[Трофимов Александр]

Пишешь функции перед процедурами, а в процедуре нажатия кнопки (по двойному щелчку открывается) пишешь эту функцию, ты по-моему так и сделал.
Не забывай тот момент, что если пишешь функцию, то даже для обращения к Edit-ам и прочей фигни в этом же Unit формы,внутри функции пишется не Edit1.text, а полное имя Form1.Edit1.text.(это если надумаешь как-то модернизировать данную функцию.

[ruslan21]

да вы правы я не знаю куда вписать код и после какого слова

[Aleksandr]

Вот код для открытия CD Rom
mciSendString('Set cdaudio door open wait', nil, 0, handle);
А этот для закрытия mciSendString('Set cdaudio door closed wait', nil, 0, handle);
Только не забудь в Uses прописать MMSystem;

[ruslan21]

Aleksandr спасибо большое все заработало

[Simply-Art]

Статья я думаю моя была или очень похоже на мою. function - это обычные функции и их надо вставлять после
implementation
{$R *.dfm}
и тут этот код.
Если надо по параметрам расписать то обращайся
http://pblog.ru/?p=19#more-19

[Aleksandr]

Ну и слава богу.