Open Close CD Rom dengan Delphi 7...


Cara Membuat Open Close CD Room dengan Delphi

        Delphi merupakan bahasa pemograman yang berbasis objek(OOP) dan sangat mudah untuk dipelajari. Dalam kesempatan ini saya coba mebuat sebuah aplikasi dari Delphi (Delphi 7) untuk membuka CD atau DVD Rom. Aplikasi ini memang sangat sederhana dan dengan kesederhanaannya mudah dipahami dan bisa bermanfaat buat belajar.

Sebelum dimulai jangan lupa berdoa dulu, supaya lebih berkah.Oke kita langsung aja
Buka Delphi dengan cara
Start/All
Program/Borland Delphi 7/Delphi 7.
Stelah Delphi terbuka masukkan komponen delphi seperti :
2 Bitbutton, action, list, xp manifest.
Setelah component tersebut dimasukkan langkah selanjutnya:
  1. Ketik "Uses MmSystem;" (tampa tanda petik) tepat di bawah tulisan "implentation"
  2. Ubah nama bitbutton 1 menjadi btnopenclose
  3. Ubah nama bitbutton 2 menjadi btnexit
  4. Ubah nama component menjadi : Actionlist
  5. Double clik component action list hingga muncul form action list
  6. Klik "New action list" 3x
  7. Action list pertama ganti namanya menjadi : ActionOpen
  8. Action list kedua ganti namanya menjadi : ActionClose
  9. Action list ketiga ganti namanya menjadi : ActionExit
  10. Double click pada ActionOpen dan masukkan kode berikut:
  11.         mcisendstring('set cdaudio door open wait',nil,0,Application.Handle');
            btnopenclose.Caption:='Close F3';
  12. Double click pada ActionClose dan ketikkan kode berikut:
  13.         mcisendstring('set cdaudio door closed wait',nil,0,Application.Handle);
            btnopenclose.Caption:='Open F2';
  14. Double click pada ActionExit dan ketikkan kode berikut:
  15.         Application.Terminate;
  16. Double click btnopenclose dan ketikkan kode berikut :
  17.         if btnopenclose.Caption='Open F2' then
            begin
            ActionOpenExecute(Self);
            end else
            begin
            ActionCloseExecute(Self);
            end;
  18. Double click btnexit dan ketikkan kode berikut :
  19.         ActionExitExecute(Self);
  20. Setelah semua langkah di krjakan maka periksa apakah ada yang salah dengan cara menekan tombol “Ctrl + F9”. Jika tidak ada kesalahan maka tekan “F9” untuk menjalankan aplikasi ini.
Semoga bermanfaat

Share this

Related Posts

Previous
Next Post »