iki tane yeni command buton ekleyin deniyo ekleyemedim nasıl oluyo acaba yardımcı olur musunuz_?

delphi olarak öğrendim ama pek anlamıyorum programlama dilini not defterine kod yazılacağını zannediyordum ama öyle değil sanırım. nasıl yapıcam acaba_?

Merhaba arkadaşlar.. ben cdromu açma kapama için bi dosya oluşturmak istiyorum fakat birçok yerde arattım bir kaç koddan falan bahsediyorlar. Ama ben bu kodları nereye yazacağımı bilmiyorum. Sizden ricam anlatırsanız çok sevinirim. Şimdiden teşekkürler.

Aşağıda akradaşın vermiş olduğu kodları kullana bilirsin Kodların unit çıktısınıda ben ekleyeyim örnek olarak bakarsın Kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MMSystem; type TForm1 = class Button1: TButton; Button2: TButton; procedure Button1Click ; procedure Button2Click ; private public end; var Form1: TForm1; implementation procedure TForm1. Button1Click ; // Acma Butonu begin mciSendString('Set cdaudio door open wait', nil, 0, handle); //Cdromu acmak icin kullanılan kod end; procedure TForm1. Button2Click ; //Kapama Butonu begin mciSendString('Set cdaudio door closed wait', nil, 0, handle); // Cdromu kapamak için kullanılan kod end; end. olan yerlerde birleşik olarak s e n d e r yazmaktadır forum sansürlüyor s e n d e r' i

bende Vb 'de cok basit bir şekilde yapabilirsin wardom

http://www.wardom.org/visual-basicte-cd-rom-acma-kapama-programi-yapin-t8736.html

Delphi için Buttonlara bu komutları yazabilirsin uses kısmına MMSystem unitini ekle mciSendString('Set cdaudio door open wait', nil, 0, handle); //aç mciSendString('Set cdaudio door closed wait', nil, 0, handle); //kapa Hepsini görmek için tıklayın...

Öncelikle hangi programlama dilini kullanacağını

kısa yol yap al sana kod tek tıklama vuris yoluyla yedircem demiyonDA