استفسار حول فتح ال cd

[HAMID-OK]

[FONT="Impact"][COLOR="Red"]السلام عليكم ورحمة الله وركاته
عندي استفسار بسيط
ما الكود الذي يقوم بفتح وغلق ال cd
و شكرا[/COLOR]

[kachwahed]

[COLOR="black"]وعليكم السلام ورحمة الله وبركاته
الأخ HAMID-OK مرحبا بك في المنتدى
تم طرح هذا أكثر من مرة، استخدم البحث:
http://www.delphi4arab.net/forum/showpos...ostcount=3
http://www.delphi4arab.net/forum/showthread.php?tid=159

كود :

// 1)Add MMSystem to USES // 2)Open CD-ROM: begin mciSendString('Set cdaudio door open', nil, 0, hinstance); end; // 3)Close CD-ROM begin mciSendString('Set cdaudio door closed wait', nil, 0, handle); end;

PHP كود :

//check if CD-ROM is open
uses
  mmsystem;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s: array[0..64] of Char;
  error: Cardinal;
  Text: array[0..255] of Char;
begin
  error := mciSendstring('open cdaudio alias geraet', nil, 0, Handle);
  if error <> 0 then
  begin
    mciGetErrorstring(error, @Text, 255);
    ShowMessage(Text);
    mciSendstring('close geraet', nil, 0, Handle);
    Exit;
  end;

  error := mciSendstring('status geraet mode', @s, SizeOf(s), Handle);
  if error <> 0 then
  begin
    mciGetErrorstring(error, @Text, 255);
    ShowMessage(Text);
    mciSendstring('close geraet', nil, 0, Handle);
    Exit;
  end;

  mciSendstring('close geraet', nil, 0, Handle);
  ShowMessage('Message: ' + s);
end; 


موفق.[/COLOR]

[HAMID-OK]

[color="red"]شكرا لك أخي
الله يزيدك علم على علم
وشكرا لك على التوجية
لقد وجدت الموضوع لكن كنت قد كتبت موضوعي فعذرا لأخذ من وقتك
شكرا [/color]