Shutdown timer, sebuah aplikasi sederhana tapi sangat besar manfaatnya. Tentunya saya tidak perlu menjelaskan panjang lebar tentang kegunaan aplikasi ini karena pasti semuanya sudah tau. Nah, sekarang saya ingin berbagi tentang cara membuat aplikasi tersebut menggunakan Borland Delphi 7. Memang tutorial ini sudah banyak di internet, namun tak ada salahnya kan jika saya juga ikut menulis artikel tentang ini. Yang penting ini hasil pemikiran sendiri, bukan hasil copy-paste dari blog orang lain.
Ok, pertama kita siapkan dulu form-nya. Desainnya sesuai selera masing-masing, yang penting didalamnya terdapat komponent Label, DatetimePicker, Timer, RadionGroup, dan 2 buah Button. Properti name untuk masing-masing komponen tidak perlu diganti, kita pake nama defaultnya saja. Untuk RadioGroup1, tambahkan 3 buah item masing-masing Shutdown, Restart, dan Log Off . Beri angka 0 untuk itemindexnya. Untuk Button1 beri caption "Aktifkan" dan caption "Batal" untuk Button2. Untuk Timer1, beri angka 100 untuk intervalnya. Hasilnya kira-kira seperti ini :
Sekarang kita tinggal menambahkan kode programnya. Yang pertama, pada event OnCreate Form1 ketikkan kode berikut :
Timer1.Enabled:=false;
DateTimePicker1.Time:=time;
Button2.Enabled:=false;
Selanjutnya pada event Timer1.Timer :
if timetostr(time) = timetostr(DateTimePicker1.Time) then
begin
case RadioGroup1.ItemIndex of
0:winexec('shutdown -s -t 0 -f',sw_normal);
1:winexec('shutdown -r -t 0 -f',sw_normal);
2:winexec('shutdown -l -t 0 -f',sw_normal);
end;
end;
Button1 OnClick :
Button2.Enabled:=true;
Button1.Enabled:=false;
DateTimePicker1.Enabled:=false;
RadioGroup1.Enabled:=false;
Timer1.Enabled:=true;
Button2 OnClick :
Button2.Enabled:=false;
Button1.Enabled:=true;
DateTimePicker1.Enabled:=true;
RadioGroup1.Enabled:=true;
Timer1.Enabled:=false;
Ok, selesai. silahkan dicoba dikomputer masing-masing. Contoh yang sudah jadi bisa di download
disini
