Delphi: membuat program AUTO SHUTDOWN
Posted by: Liga Pribadi on: 1 Maret 2008
Komputer anda tetap menyata semalaman dan anda tertidur lelap!!, kini hal tersebut tidak akan terjadi lagi. Untuk mengatasinya mari kita membuat program yang akan mematikan komputer anda secara otomatis meskipun anda tiba-tiba tertidur, dan program tersebut kita beri nama ‘Auto Shutdown’.
1. Buat aplikasi baru dengan cara klik File | New | Application pada menu utama Delphi.
2. Kemudian muncul form baru.
3. Ubah beberapa properti dari Form tersebut.
4. Tambahkan 1 buah TLabel pada FrmUtama.
5. Ubah beberapa properti dari Label1.
6. Tambahkan 1 buah komponen TDateTimePicker pada FrmUtama.
7. Ubah beberapa properti dari DateTimePicker1.
8. Tambahkan 2 buah komponen TButton pada FrmUtama.
9. Ubah beberapa properti dari Button1.
10. Ubah beberapa properti dari Button2.
11. Tambahkan 1 buah komponen TTimer pada FrmUtama.
12. Double Click Events OnShow dari FrmUtama.
13. Kemudian ketikkan kode program berikut.
14. Double Click Events OnClick dari BtnKeluar.
15. Kemudian ketikkan kode program berikut.
16. Double Click Events OnClick dari BtnAktifkan.
17. Kemudian ketikkan kode program berikut.
18. Double Click Events OnTimer dari Timer1.
19. Kemudian ketikkan kode program berikut.
20. Simpan aplikasi dengan cara klik File | SaveProjectAs pada menu utama Delphi.
21. Kemudian muncul kotak dialog Save As.
22. Beri nama ‘UAutoShutdown’ untuk nama unit FrmUtama.
23. Beri nama ‘AutoShutdown’ untuk nama project.
24. Jalankan aplikasi dengan menekan F9 atau klik Run | Run pada menu
utama delphi.
25. Berikut adalah tampilan aplikasi ‘Auto Shutdown’ setelah dijalankan.
Cara kerja aplikasi ‘Alarm Pengingat’
4 Tanggapan ke "Delphi: membuat program AUTO SHUTDOWN"
31 Januari 2009 pada 6:12 am
Mass… Aku pake’ XP sp2, kalo pake’ function ExitWindowsEx(EWX_SHUTDOWN,0), Gak ada respon, kalo pake’ function ExitWindowsEx(EWX_FORCE,0),hanya logoff aja, kira-kira ada apa dengan program saya atau dengan komputer saya
makasih ya…..
6 Juni 2009 pada 9:56 am
Iya Mas, punya saya juga sama. Gak ada respon di Win Xp Sp2.
Terimakasih sebelumnya.
Tinggalkan Balasan
Sponsor
23 September 2008 pada 9:23 am
Wah makasih banyak nich ilmunya.
Gimana ya caranya untuk replace kata di ketikan MS Word dengan menggunakan delphi?