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

[HAMID-OK]

السلام عليكم ورحمة الله وركاته
عندي استفسار بسيط
ما الكود الذي يقوم بفتح وغلق ال cd
و شكرا

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
الأخ HAMID-OK مرحبا بك في المنتدى
تم طرح هذا أكثر من مرة، استخدم البحث:
http://www.delphi4arab.com/forum/showpost.php?p=10429&postcount=3
http://www.delphi4arab.com/forum/showthread.php?t=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;



//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;
موفق.

[HAMID-OK]

شكرا لك أخي
الله يزيدك علم على علم
وشكرا لك على التوجية
لقد وجدت الموضوع لكن كنت قد كتبت موضوعي فعذرا لأخذ من وقتك
شكرا