Cara Shutdown dan Restart Komputer dengan Delphi XE5

By: QMPC Network on 01.06

Ada banyak hal yang dapat kita lakukan pada komputer jika kita bisa Bahasa Pemrograman. Pada postingan ini akan membahas tentang auto shutdown dengan design menarik.

Langkah 1 :
Desain Form seperti dibawah ini (lebih bagus lebih baik), gunakan skin dari alpha skin yang pernah penulis posting sebelumnya.

Langkah 2 :

Untuk Source code Aktifkan :

if edit1.Text='' then
begin
ShowMessage('Isi waktu eksekusi dan contreng salah satu pilihan!!');
Abort;
edit1.SetFocus; end
else begin
waktu:=strtoint(edit1.Text);
edit2.Enabled:=false;
combobox1.Enabled:=false;
radiogroup1.Enabled:=false;
button1.Enabled:=false;
Button2.Enabled:=true;
timer1.Enabled:=false;
case combobox1.ItemIndex of
0: waktu:=waktu*60;
1: waktu:=waktu*360;
end;
end;

Langkah 3 :
Untuk Source code Batalkan :

timer1.Enabled:=false;
edit1.Enabled:=true;
combobox1.Enabled:=true;
radiogroup1.Enabled:=true;
Button2.Enabled:=false;
button1.Enabled:=true;

Langkah 4 :
Jalankan aplikasi maka akan muncul seperti ini :

Langkah 5 :
Selamat mencoba :D

NB :
untuk software jadi bisa download disini.