WaveOutSetVolume(WAVE_MAPPER, MakeLong(vol, vol)) ġ1.Doubel klik pada scrollbar1 lalu masukan sourcecode berikut WaveOutGetVolume(WAVE_MAPPER, div 65537 div 257) įunction setwavevolume(volume:DWord):Dword
masukan komponen Additional pilih BitBtn lalu atur properti berikutĩ. masukan komponen win32 pilih ProgressBar lalu atur properti berikutħ. masukan komponen win32 pilih XPmanifest lalu atur properti berikutĦ. masukan komponen sistem pilih Timer lalu atur properti berikutĥ. Video dan Audio file|*.mp3 *.mp2 *.wav *.wma *.avi *.mpg *.mpeg *.wmvĤ. masukan komponen dialogs pilih OpenDialog atur properti berikutįilter : Video file(*.avi *.mpg *.mpeg *.wmv)|*.avi *.mpg *.mpeg *.wmvĪudio file(*.mp3 *.mp2 *.wav *.wma)|*.mp3 *.mp2 *.wav *.wma VisibelButton : btNext, vtPrev, btRecord, dan btEject : False.ģ. masukan komponen System pilih MediaPlayer lalu atur propeti berikut aplikasi mp3 ini hanya mengunakan 1 from atur propeti berikutĢ. Pada dasarnya aplikasi delphi digunakan untuk membuat berbagai macam aplikasi, setelah mencari di internet ternyata ada aplikasi untuk memutar lagu dan penambahan dari mata kuliah yaitu memutar video, lumayan lah buat belajar langsung aja deh:ġ.
