Utility Desktop

berawal dari sebuah masalah walpaper desktop sebuah komputer yang digunakan secara umum. yaitu di Lab sebuah SMK.
setiap kali buat praktek, pasti aja ada anak-anak yang jail yang seneng utak atik walpaper dan screen saver. sebenarnya si tidak masalah, akan tetapi akan menjadi tidak enak dipandang bila walpaper dan screen saver bnerbeda beda di sejumlah komputewr dalam satu ruangan, sesuai dengan nama pemaikainya.
usut punya usut, cari solusi yang terbaik, ketemu duech menggunakan Deep freeze.
jadi setelah ane restart, tampilan bisa kembali lagi seperti sebelumnya....
tapi tunggu dulu.... eit.... ternyata hasil kerjaan anak juga kembali seperti semula alias hangus... karna kebetulan di simpan di HTDOC pemrogramman PHP...

mulailah berfikir untuk coding... nah ahirnya ketemu juga,
dengan mengutak atik registry
berikut tampilan Programnya....

1. pada saat fijalankan, program akan aktif dan tidak akan langsung tampil, cari pada try icon kemudian clik 2x
2. program ini bisa dikasih password dengan klik kanan pada icon di tray icon

sekalian ini ane share beserta codingnya biar lebih jelas...
Ok Cekidot mari


Langsung Sedot Ajadengan klik link dibawah ini
Download Alplikasi Utiliti Dekstop Dengan Delphi 7

cara penggunaan boleh via Comment

Program Aplikasi Cek Layar laptop Dengan Delphi

Bagi Kawan kawan yang hendak beli Laptop terutama yang 2nd
harus benar benar teliti dalam pengecekan.
jangan sampai menyesal di kemudian hari
berikut adalah beberapa hal yang harus di perhatikan ketika membeli Laptop Bekas/ 2nd

1. Perhatikan Segel garansi, jika perlu tanyakan langsung masih garansi atau tidak, garansi resmi atau tidak
2. cek kondisi fisik secara keseluruhan ada yang lecet atau tidak.
3. coba satu persatu fungsi keyboard apakah berfungsi dengan baik atau tidak. gunakan Software berikut untuk melakukan test... download Disini
4. cek layar LCD atau LED ada dead Pixel / tidak. yaitu titik hitam/ putih/yang lainya dilayar yang tidak sesuai dengangambar yang ditunjukkan. nha dalam hal ini penulis akan mencoba mengulas bagaimana cara melakukan test LCd dengan Software yang dibuat dengan delphi 07
5. tanyakan kelengkapan paketnya, apakah buku manual, dus masih ada atau tidak.
6. jika semua hal diatas terpenuhi maka laptop 2-nd tersebut layak untuk diperhitungkan.

kembali ke topik.

bagi kalian yang hendak melakukan pengecekan terhadap layar, alangkah baiknya jika kita mencoba menampilkan layar dengan warna full, misal kita buat layar lcd hitam semua, atau merah semua, atau warna yang lain, sehingga nantinya mudah memperhatikan titik mana dalam layar yang paling berbeda

dalam Delphi, untuk melakukan hal tersebut cukup menambah sebuah Form kemudian pada properties WindowsState ubah menjadi maximize

hal ini membuat form akan memenuhi layar ketika program dijalankan.
kemudian kita berikan coding yang mana kita akan menggunakan deretan tombol fungsi dari 1 sampai 9 (anda bisa menggunakan tombol yang lain).
semisal anda menekan tombol 1 maka layar akan berubah menjadi hitam Dst
berikut adalah Codenya

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'1':Color:=clRed;
'2':Color:=clBlue;
'3':Color:=clGreen;
'4':Color:=clWhite;
'5':Color:=clBlack;
'6':Color:=clYellow;
end;

dan seterusnya bisa ditambah sendiri
code diatas kita letakkan pada form di events onkeypress

ok gan donwload versi lengkapnya bisa klik link dibawah ini
Klik disini...

ohya jika ingin keluar dari aplikasi bisa gunakan tombol ESC atau tekan ALT+F4  

Coding Program Cek Tombol keyboard dengan Delphi 7

Program ini ane buat ketika hendak membeli Laptop

kebetulan Laptop 2nd makanya perlu ekstra hati-hati heee

tujuanya adalah untuk mengetahui  berfungsi atau tidak keyboard laptop tersebut

konsep yang diambil adalah dengan pemanfatan nilai bali dari Key yang ada pada Procedure OnkeyDown

dengan Syntax berikut

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

Edit2.Text:=(FloatToStr(key));

end;

jika tombol pada keyboard ditekan maka akan memberikan nilai balik bertipe Word yang kemudian ditangkap dan ditampilkan nilainya pada edit2

konsep yang sangat sederhana sekali akan tetapi memberikan hasil yang oktimal.

selain itu, untuk memperlengkap tanggapan dari tanggapan fungsi nilai tombol bisa ditambahkan pada event onkeypress dengan listing code SBB:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

Timer1.Enabled:=true;

Edit1.Text:=(Key);

Memo1.SetFocus;

{if not(Key in ['a'..'z','0'..'9']) then exit else

 } lbnama.Caption:=Key;

lbjudul.Caption:='Anda Menekan Tombol';

lbstatus.Caption:='Kondisi Normal';

end;

dengan komponen yang disediakan adalah memo, edit1, edit2, label

berikut screen shootnya

untuk Download program aplikasi dan source code nya klik link dibawah ini

Download Aplikasi Cek Tombol V.1.5