Nov 29, 2010

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

9 comments:

wahidin said...

tombol esc pada keyboard saya tidak berfungsi ketika menggunakan software autocad....
mohon penjelasannya.
terima kasih sebelumnya.

rehmoe said...

pertama,
posting ini sebenernya ditujukan utk tutorial programming
untuk manipulasi variasi keyboard, utk tujuan secure, yg seringnya dipakai di aplikasi2 client billing warnet.

kedua,
mengenai kendala mas wahidin,
terus terang saya agak bingung menjawabnya, karena saya bukan pengguna autocad.

btw coba beberapa hal sedikit ini:
1.
pastikan tombol ESC berfungsi dg baik saat autocad tidak dijalankan.( Ya/Tidak)

2.
kalo dari no 1. Ya
nah kalo saat dijalankan, ESC menjadi disabled,
ada kemungkinan2 lagi, apakah itu karena setting aplikasi autocadnya ato terkena virus? kalo virus rada aneh juga, karena saya pribadi belum mengalami virus aktif karena aplikasi tertentu(autocad), kalo autocad ditutup, virus nonaktif..... jadi kemungkinan ada setting/konfigurasi tertentu di aplikasi autocad

kalo dari no 2. Tidak
berarti kemungkinan tombol ESC ada masalah secara hardware(keyboard error)


maaf saya bukan pengguna aplikasi autocad, jadi jawabannya masih kira-kira

danang.yunianto said...

mas rahmoe saya bingung penempatan codingnya, type saya masukkan di bagian type jd error, lalu knp type dr coding di atas ada "end;" ? dan DisableKeyWins sudah saya tambahkan di dalam uses tp error, mohon penjelasan dari coding di atas besrta penempatannya atau mungkin ada penambahan component, terimakasih sebelumnya

rehmoe said...

@danang.yunianto,
1. Bagian "semua Kode lengkap" diatas, copy & paste di notepad
2. trus save as --> DisableWinKeys.pas (pastikan type "All Files")

utk menggunakannya
1. file DisableWinKeys.pas tsb kopikan direktori source project masbro
2. dan pada code masbro tambahkan :
uses DisableWinKeys;

3. utk disable panggil prosedur:
DisableWindowsUI;

4. utk enable panggil prosedur:
EnableWindowsUI

SiMems said...

mas untuk mengimplementasikan ke sistem windowsnya gmn caranya??

rehmoe said...

@SiMems,
Implementasinya tinggal bikin programnya aja. Nah karena code diatas untuk delphi, jadi akan lebih mudah kalo pake delphi.

asrarul ikram said...

gan, kalo tombol [Ctrl]+[Alt]+[Del] scriptnya seperti apa ?
sy sdh coba dgn modifikasi sprti ini :

if (pkbhs^.vkCode = VK_DELETE) and LongBool(pkbhs^.flags and LLKHF_ALTDOWN) and WordBool(GetAsyncKeyState(VK_CONTROL) and $8000) then begin
Result := 1;
Exit;
end;

tp tombol [Ctrl]+[Alt]+[Del] msh berfungsi
kalo yang lainnya sdh work..
sy jg sdh coba modif [Alt]+[F4] jg brhasil
mkasih atas ilmunya gan

rehmoe Ef said...

@asrarul ikram,

sudah dicoba code yg di sini ?
http://rehmoe.blogspot.com/2010/11/disable-ctrl-alt-del-dengan-delphi.html

alfath syahbanap said...

gan, kalo tombol [Ctrl]+[N] dll & yang terdiri dari tiga tombol scriptnya seperti apa ?
mohon pencerahannya terima kasih

Post a Comment