delphi4arab منتديات دلفي للعرب

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

[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]

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

HAMID-OK

kachwahed

HAMID-OK