Delphi for delphier

DateTime – Mendapatkan waktu Idle

Tingkatan Menengah
   
Kategori DateTime
   
Sub Kategori Umum
   
Judul Mendapatkan waktu idle
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi http://delphi.about.com/od/adptips2004/a/bltip1104_4.htm
   
Tujuan
Mengajarkan kepada Delphier tentang cara mendapatkan waktu idle.
   
Overview
Pembahasan pada artikel kali ini akan mempelajari DateTime dalam hal bagaimana mendapatkan status idle dari program yang telah dibuat.
Diharapkan artikel ini bisa dijadikan salah satu media security untuk menjaga program aplikasi kita dari gangguan orang yang tidak bertanggung jawab.
Artikel ini sangatlah sederhana, semoga delphier bisa mencobanya dengan mudah dan langsung bisa menerapkan kepada setiap program yang dibuat.
   
  Struktur fungsi idle :
   
 
function SecondsIdle: DWord;
var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(liInfo) ;
Result := (GetTickCount – liInfo.dwTime) DIV 1000;
end;
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
  Button1: TButton;
Bevel1: TBevel;
Timer1: TTimer;
Panel1: TPanel;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
datetimeumum0001.jpg
   
Langkah 4
Buat fungsi SecondsIdle. Untuk lebih detailnya, silahkan lihat potongan kode program berikut.
   
 
function SecondsIdle: DWord;
var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(liInfo) ;
Result := (GetTickCount – liInfo.dwTime) DIV 1000;
end;

   
Langkah 5
Silahkan anda klik 2x tombol Timer1. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnTimerseperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Panel1.Caption := Format(‘ %d seconds’, [SecondsIdle]) ;
end;
   
Langkah 6
Silahkan anda compile. Tekan tombol Ctrl + F9.
   
 
Apabila tidak muncul pesan error, berarti program yang anda buat telah berhasil dan silahkan anda tekan tombol F9 untuk menjalankan program aplikasinya.
   
 
datetimeumum0002.jpg
   
Langkah 7
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.
   
   
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
   
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

1 Komentar

  1. Nice!!!

    Komentar oleh Fahmi — Januari 31, 2008 @ 9:39 am


RSS feed for comments on this post.

Blog di WordPress.com.

%d blogger menyukai ini: