Delphi 7 ile Nasıl yapılır ?

[paranoyaks]

Merhaba Arkadaşlar benim kendi makinemde kullanmak için istediğim birşey var ama benim için önemli gerçekten bana yardımcı olursanız çok sevinirim;
İstediğim şey cd roma cd takıldığında anlayıp cd romun kapağını açacak bir program istiyorum tek istediğim bu araştırdım birşeyler yapmaya çalıştım ama başaramadım bilen arkadaşların yardımını bekliyorum illa bu şekilde olması gerekmez bozuk diyebilmemi sağlayacak başka yöntemlerede açığım

[Commandx]

Bu anlayıp dediğiniz şey ne olabilir
biraz daha açıklayabilirseniz
birşeyler yapılabilir

[F.Atagun]

İstediğim şey cd roma cd takıldığında anlayıp cd romun kapağını açacak

Hocam,

Cd-Rom 'a Cd'yi koydugu zaman program geri mi çıkartsın cd yi

Valla ben böle anladım. Dogrumu anlıyorum


Not: Ayrıca Bakınız: Forum Kuralları ( Başlık için )

[ikutluay]

cd takmak istediğinizi anlayıp cd rom kapağnımı açacak yoksa çıkartmak istediğinizde yada komut verdiğinizde kapağımı açacak. anlamak için falcı olmak lazım valla...

Sorunuzu açıklayın bakalım

[sabanakman]

İstediğim şey cd roma cd takıldığında anlayıp cd romun kapağını açacak bir program istiyorum

İlk aklıma gelen bunun yerine sayısal lotoda çıkacak sayıları anlayan bir program yazman daha iyi olurdu .

Aşağıda CD Rom'u açıp kapayan kodlar var ama anlama kısmını zihnimde pek canlandıramadım.

Kod: Tümünü seç

procedure CDCikart;
begin
  mciSendString('Set cdaudio door open', nil, 0, 0);
end;

procedure CDTak;
begin
  mciSendString('Set cdaudio door closed', nil, 0, 0);
end;