проблемы с прогой на delphi

[kommunist]

Добрый вечер товарищи программисты.Я написал программу которая открывает cd-rom.
вот мой код:
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);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
mcisendstring('Set cdaudio cdopen wait',nil,0,handle);
end;
end.


проблема в том что по нажатию кнопки cd-rom не открывается посмтрите может подскажите в чём тут дело.
да кстати у меня есть и второй cd-rom.еподскажите как мне на него выйти?
заранее выражаю огромную ьлагодарность всем откликнувшихся.

[Nemon]

mciSendString('Set cdaudio door open wait', nil, 0, handle);
Вот так попробуй

[Volkogriz]

uses
MMSystem

ЗАКРЫТЬ CD-ROM

mciSendString('Set cdaudio door open wait', nil, 0, handle);

Для открытия CD-ROM:

mciSendString('Set cdaudio door closed wait', nil, 0, handle);

С уважением Volkogriz!!!

[kommunist]

volkogriz и nemon спасибо вам большое
а насчет вторго вопроса неподскажите как из одной программы моожно открыть первый и второй привод


P.S. ёще раз спасибо вы мне очень помогли

[Nemon]

unit DriveTools;

interface

uses

  Windows, SysUtils, MMSystem;

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

implementation

function OpenCD(Drive: Char): 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_Close, Flags, Longint(@OpenParm));
  end;
end;

function CloseCD(Drive: Char): 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_CLOSED, 0);
    if Res = 0 then
      exit;
    Result := True;
  finally
    mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
  end;
end;

end.

[kommunist]

и еще раз спасиб !!!!!!

[Ярослав]

Скиньте исходник плиз

[Terran]

Что бы открыть CD-ROM используй лучше вот такую команду:

Открыть CD-ROM.
MciSendString('Set CDAudio Door Open Wait', Nil, 0, Handle);

Закрыть CD-ROM.
MciSendString('Set CDAudio Door Closed Wait', Nil, 0, Handle);

Только не забудь добавить в раздел Uses модуль MMSystem,

А есле в системе установлено несколько сидеромов, то вот очень удобный и простой исходник для открытия лобого из них.
Но для этого тебе надо будет установить компонент WinIoCtl.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Var
HCDDevice: THandle;
LpBytesReturned: DWORD;
DriveLetter: String; {Char}
Begin
DriveLetter:=(Edit1.Text);
HCDDevice := CreateFile(PChar('\\.\'+DriveLetter +':'), GENERIC_READ,
FILE_SHARE_READ Or FILE_SHARE_WRITE, Nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
If HCDDevice <> INVALID_HANDLE_VALUE Then
Begin
DeviceIoControl(hCDDevice, IOCTL_DISK_EJECT_MEDIA , Nil, 0, nil, 0, LpBytesReturned, Nil);
CloseHandle(HCDDevice);
End;
End;
Procedure TForm1.Button2Click(Sender: TObject);
Var
HCDDevice: THandle;
LpBytesReturned: DWORD;
DriveLetter: String; {Char}
Begin
DriveLetter:=(Edit1.Text);
HCDDevice := CreateFile(PChar('\\.\'+DriveLetter +':'), GENERIC_READ,
FILE_SHARE_READ Or FILE_SHARE_WRITE, Nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
If HCDDevice <> INVALID_HANDLE_VALUE Then
Begin
DeviceIoControl(hCDDevice, IOCTL_DISK_LOAD_MEDIA , Nil, 0, nil, 0, LpBytesReturned, Nil);
CloseHandle(HCDDevice);
End;
End;
End.

С уважением Terran.

[Ярослав]

Спасибо с одним приводом разобрался а с несколькими не получилось можете объяснить код в сообщениях #5 И #8?
(если можно по подробней)

[Terran]

что бы получилось с двуймя, тебе надо установить компонент в делфи WinIoCtl и потом
можеш просто сделать так:

Открыть CD-Rom.

Uses WinIoCtl,

Var
HCDDevice: THandle;
LpBytesReturned: DWORD;
DriveLetter: String; {Char}
Begin
DriveLetter:=('E');
HCDDevice := CreateFile(PChar('\\.\'+DriveLetter +':'), GENERIC_READ,
FILE_SHARE_READ Or FILE_SHARE_WRITE, Nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
If HCDDevice <> INVALID_HANDLE_VALUE Then
Begin
DeviceIoControl(hCDDevice, IOCTL_DISK_EJECT_MEDIA , Nil, 0, nil, 0, LpBytesReturned, Nil);
CloseHandle(HCDDevice);
End;
End;

А что бы закрыть, измени значкние IOCTL_DISK_EJECT_MEDIA на IOCTL_DISK_LOAD_MEDIA.
Смотри на следующей странице, я тебе скинул свой исходник для открытия двух CD-ROмов
С уважением Terran!!!