unit1.pas

delphi 控制光驱的探出与关闭 源代码

unit Unit1;

interface

implementation
function OpenCDROM(Drive: pChar): Boolean;stdcall; // 打开CDROM
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;

end.