Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: CD-ROM - Aç/Kapat  (Okunma sayısı 2617 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
CD-ROM - Aç/Kapat
« : 21 Ekim 2005 16:14:30 »
Kod:  (Unknown Language)
  1. Procedure CloseDoor;
  2.  
  3. Begin
  4.  
  5.   mciSendString('Set cdaudio door closed', nil, 0, 0);
  6.  
  7. end;






Kod:  (Unknown Language)
  1. Procedure OpenDoor;
  2.  
  3. Begin
  4.  
  5.   mciSendString('Set cdaudio door open', nil, 0, 0);
  6.  
  7. end;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

Çevrimdışı YLDRM_WEB

  • Delphi 1 Level 5
  • *****
  • İleti: 43
  • Rep: +0/-2
Ynt: CD-ROM - Aç/Kapat
« Yanıtla #1 : 30 Eylül 2006 13:33:14 »
abi ben bunu bi türlü yapamadım yaa

butonun içine aynı kodu yazıorum olmuyor
lütfen yardım
Kayıtlı
............::::.................
H

Çevrimdışı YLDRM_WEB

  • Delphi 1 Level 5
  • *****
  • İleti: 43
  • Rep: +0/-2
Ynt: CD-ROM - Aç/Kapat
« Yanıtla #2 : 23 Ekim 2006 11:21:55 »
yaptım yaptım :D ufak bi ayrıntıyı unutuyomuşum
Kayıtlı
............::::.................
H

Çevrimdışı AnonieMz

  • Delphi 1 Level 1
  • *
  • İleti: 1
  • Rep: +0/-0
Ynt: CD-ROM - Aç/Kapat
« Yanıtla #3 : 24 Ekim 2006 20:41:35 »
Abi bende niye olmuyo, ve hangi ayrintigi unutmustun sen kardes ?????
[Error] Unit1.pas(28): Statement expected but 'PROCEDURE' found
[Error] Unit1.pas(30): Undeclared identifier: 'mciSendString'
[Error] Unit1.pas(34): Undeclared identifier: 'mciSendString'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


* bu tur hatalari veriyor . biri yardimci olabilirmi ?
Kayıtlı

Çevrimdışı muneccim

  • Delphi 1 Level 1
  • *
  • İleti: 1
  • Rep: +0/-0
Ynt: CD-ROM - Aç/Kapat
« Yanıtla #4 : 26 Şubat 2007 23:33:44 »
Merhaba forumdaki herkese cok teşekkürler, oldukça faydalı bilgiler edinmiş oldum sayenizde ...

Burada,
 mciSendString (lpstrCommand : PAnsiChar ; lpstrReturnString:PAnsiChar; uReturnLength: Cardinal; hWndCallback:HWND): Cardinal;
fonksiyonu "MMSystem" namespace i altında tanımlı bu nedenle kullanmak için:
- uses kısmına MMSystem 'i eklemen gerekiyor. 
Kayıtlı

Çevrimdışı YLDRM_WEB

  • Delphi 1 Level 5
  • *****
  • İleti: 43
  • Rep: +0/-2
Ynt: CD-ROM - Aç/Kapat
« Yanıtla #5 : 11 Mayıs 2007 17:39:53 »
evet arkadaşım
uses kısmına MMSystem 'i eklemen gerekiyor.   
Kayıtlı
............::::.................
H
Sayfa: [1]   Yukarı git
« önceki sonraki »