Disable ALT+TAB, ALT+ESC, CTRL+ESC, etc on Windows( XP, 2000, Seven) Dengan Delphi [Part III]

Tutorial ini merupakan lanjutan dari sebelumnya (Part II) yang hanya berfungsi untuk mematikan / Disable Task Manager ( Disable CTRL+ALT+DEL ).

Setelah beberapa kali googling, akhirnya menemukan tutorial sangat menarik, sesuai keinginan, yang didapat dari Forum delphiarea.

Sudah berupa kode komplit, berupa unit DisableWinKeys.pas, dibuat oleh Andrea Belli, hasil migrasi prject DLL buatan Gambiz@delphiarea.com

Setelah dipelajari, Unit tersebut berfungsi untuk mematikan tombol:
- CTRL+ESC
- ALT+TAB
- ALT+ESC

Dan penulis modifikasi unit tersebut untuk menambahkan beberapa variasi kombinasi tombol yaitu:
- CTRL+ENTER
- WINKEY (Left/Right),
- MENUKEY (Left/Right

Berikut Kode lengkapnya:


Cara pemanggilannya:
(Pastikan DisableWinKeys sudah ditambahkan pada bagian uses)


Kode ini berfungsi dengan baik di Windows XP & Seven(tested),
semoga saja kompatible dengan versi-versi Windows lainnya

Disable CTRL-ALT-DEL Dengan Delphi [Part II]

Sudah membaca tutorial Bagaimana Caranya Disable System Key Dengan Delphi [Part 1] ?

Yup, kode tersebut hanya berlaku untuk Windows 9.x.
Oleh karena itu penulis googling dan menemukan kode yang diinginkan di forum delphiarea.
Kodenya:



Berhasil 'kan? YUP..

Terus bagaimana dengan kombinasi tombol yang lain? CTRL-ESC, ALT-TAB?

Solusinya? ya googling again.... atau tunggu tutorial berikut

Direct Printing Dengan Delphi

Biar tidak terjadi kesalahpahaman, direct printing yang saya maksud adalah, suatu proses cetak/print secara langsung(direct) ke LPT (Port Printer), khususnya Teks yang di print menggunakan Printer Dotmatrix

Tujuannya adalah untuk kecepatan proses print, yang seringnya diimplementasikan untuk cetak struk/nota, maupun laporan(Text Base Reporting).

Lebih jelasnya, lihat gambar berikut:

'

Diatas merupakan contoh direct printing melalui Command Prompt Windows System.

Bagaimana jika dilakukan melalui pemrograman Delphi?

Ya, Command diatas disimpan dalam batch file ( .cmd / .bat ),
terus batch file tersebut dijalankan di Delphi perintah ShellExecute(), bisa kan.

Dengan cara itu bisa dilakukan, tapi disini kita akan coba implementasikan secara internal(tidak melalui perantara batch-file)

Perhatikan prosedure kode ini:


Contoh diatas diatas akan mencetak semua teks(string) yang ada di dalam variabel infoNota(TStringlist).


Nah, anda lebih suka yang mana?

Bagaimana Caranya Disable System Key Dengan Delphi [Part 1]

Pertama kita harus tahu apa itu system key?
System Key yang saya maksud disini adalah kombinasi tombol antara lain CTRL+ALT+DEL, ALT+TAB, CTRL+ESC. Dan bagaimana caranya men-disable tombol-tombol tersebut dengan DELPHI?

Setelah googling sana sini, akhirnya dapat juga caranya, yaitu tutorial Disable ALT+TAB, CTRL+ESC, CTRL+ALT+DEL yang dibuat oleh Zarko Gajic

Berikut code nya:


Berhasil? Jawabannnya adalah YA & TIDAK

Karena prosedur tersebut Tidak berfungsi di OS WINNT System (XP, 2000)

 
jadi, solusinya?
mari kita googling lagi, atau baca tutorial berikutnya Disable CTRL-ALT-DEL Dengan Delphi [Part II]

Trik Input Angka Dalam Format Rupiah ( Ribuan ) Dengan Delphi

Proses input angka rupiah, akan lebih manarik, lebih memudahkan interaksi dengan user, jika proses input tersebut dalam format ribuan ( rupiah ).





Berikut ini trik untuk proses input dalam format ribuan ( rupiah ) :

1. Pada form, tambahkan component Edit ( Tedit )
2. Pada Component TEdit, tambah code pada Event OnKeyPress


3. Pada Component TEdit, tambah code pada Event OnKeyUp


Lihat hasilnya: ( screenshot)

Implementasi Menu Dinamis menggunakan Delphi + MySQL

nubie only

Menu-menu akan ditampilkan dalam listbox, yang mana menu tersebut dari database. Apabila menu diklik, akan menampilkan form di pagecontrol ( Tab baru)


Hal-hal yang dibutuhkan:
- Database MySQL, download
- Komponen ZeosLib, download
- Kompiler Delphi 7, selain Delphi7 silahkan disesuaikan.


struktur table:


isi table 

contoh hasil:

Untuk contoh code silahkan download :
Downlod+source



---update link : 25 Agustus 2011 --
Download Source code delphi:
http://www.indowebster.com/implemmenudinamis_v_1.html


-semoga bermanfaat-