Open Close CD Rom dengan Delphi 7...

Delphi merupakan bahasa pemrograman yang berbasis objek (OOP) dan mudah untuk dipelajari. Dalam posting kali ini aqu mencoba untuk membuat aplikasi dari Delphi (aqu pake Delphi 7) untuk membuka CD atau DVD Rom.

Memang sangat sederhana tapi mudah mudahan bermanfaat untuk yang baru berlajar seperti aqu



Langkah pertama adalah buka Delphi denga cara Start/All Programs/Borland Delphi 7/Delphi 7.
Setelah Delphi terbuka masukkan component Delphi yaitu Bitbutton dan beberapa component yang bisa mempercantik form. Tapi dalam aplikasi ini aqu menggunakan beberapa component yaitu 2 bitbutton, action list, Xp manifest.



Setelah dimasukkan component tersebut langkah selanjutnya adalah :

1.Ketik “Uses MmSystem;” (tampa tanda petik) tepat di bawah tulisan “implementation”



2.Ubah nama bitbutton 1 menjadi btnopenclose
3.Ubah nama bitbutton 2 menjadi btnexit
4.Ubah nama component menjadi : ActionList
5.Double click 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 :

mcisendstring('set cdaudio door open wait',nil,0,Application.Handle);
btnopenclose.Caption:='Close F3';

11.Double click pada ActionClose dan ketikkan kode berikut:

mcisendstring('set cdaudio door closed wait',nil,0,Application.Handle);
btnopenclose.Caption:='Open F2';

12.Double click pada ActionExit dan ketikkan kode berikut:

Application.Terminate;

13.Double click btnopenclose dan ketikkan kode berikut :

if btnopenclose.Caption='Open F2' then
begin
ActionOpenExecute(Self);
end else
begin
ActionCloseExecute(Self);
end;

14.Double click btnexit dan ketikkan kode berikut :

ActionExitExecute(Self);

15.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…