!!! Можно ли сделать так,чтобы программа в Delphi работала с самим компьютером?!!!

[Человек_Борща]

Зачем же посылать в интернеты если всё есть "дома на полках":
Про узнавание букаф CD-ROM'а
Про открытие CD-ROM'а
Про узнавание "Открыт ли CD-ROM?"

Книги в руки и вперёд!

[MyLastHit]

К величайшему сожалению,в Delphi я пока что 'ламер' и не пойму зачем мне этот ОГРОМНЫЙ код в unit'е (из DriveWorks).Кто-нибудь может мне объяснить что с этим делать???:confu sed:

Подключить DriveWorks в разделе uses. В основном коде ее не будет видно даже. Функции описанные в этом юните:

function OpenCD(Drive: Char): Boolean;
function CloseCD(Drive: Char): Boolean;

Надеюсь что понятно что нужно передать в функцию.

[Наки]

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mmsystem;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;
  flag: Boolean;

implementation

{$R *.dfm}

procedure CloseEject(Drv:string;DoEject:boolean);
var 
  OpenParm:TMCI_OPEN_PARMS;
  SetParm:TMCI_Set_Parms;
  GenParm:TMCI_GENERIC_PARMS;
  ID:integer; 
begin
  openparm.lpstrDeviceType:=pchar('CDAudio');
  openparm.lpstrElementName:=pchar(Drv);
  if mciSendCommand(0, MCI_OPEN,MCI_OPEN_TYPE or MCI_WAIT or MCI_OPEN_ELEMENT, LongInt(@OpenParm))=0
  then
    begin
      ID:=openparm.wDeviceID;
      if DoEject then
        mciSendCommand(ID,MCI_SET,MCI_WAIT or MCI_SET_DOOR_OPEN,LongInt(@SetParm))
      else
        mciSendCommand(ID,MCI_SET,MCI_WAIT or MCI_SET_DOOR_CLOSED,LongInt(@SetParm));
      mciSendCommand(ID,MCI_CLOSE,0,LongInt(@GenParm));
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CloseEject('D:',flag);
  flag:= not flag;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  flag:=true;
end;

end.

Переменная flag... если true, то дисковод откывается, false - закрывается.

[Sparkman]

1) Для одного привода:

uses MMSystem;
procedure Open;
begin
     mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

procedure Close;
begin
     mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

2) Если приводов больше

[custanator]

delphiworld качни delphiworld.narod.ru кажись... для начинающего самая тема)

[xwicked]

Сообщение от Sparkman

1) Для одного привода:

uses MMSystem;
procedure Open;
begin
     mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

procedure Close;
begin
     mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

2) Если приводов больше

+1. Пользовался 1-ым способом - работает.

[raxp]

TC, качните себе DRKB, Delphi-World уже давно не обновляется.

[~Psycho~]

http://www.drkb.ru

[Romantik_FM]

TC, качните себе DRKB, Delphi-World уже давно не обновляется.

а DRKB обновлялся когда последний раз?

[Человек_Борща]

DRKB Explorer обновился в 2010-ом до 1.2.2.5.
У меня и chm и explorer=)