Arsip: Mematikan Fungsi Ctrl+Al+Del


by delphi in Articles more 15 years ago 880
Menggunakan fungsi Windows API "SYSTEMPARAMETERSINFO", Anda dapat menipu Windows untuk berfikir bahwa Screen Saver sedang berjalan. Hal ini akan mematikan kombinasi tombol Ctrl-Alt-Delete untuk menampilkan kotak dialog " Close Program ", mencegah komputer Reboot dengan kombinasi tombol diatas, atau menekan Alt-Tab untuk berpindah ke jendela lain .Juga bisa menghentikan Ctrl-Esc untuk membuka Start Menu.
Biasanya kita butuh hal ini saat membuat sebuah aplikasi login, yang akan memaksa User hanya menggunakan aplikasi kita dan tidak bisa mematikannya kecuali melalui proses yang benar.
Berikut kode-nya:
procedure SystemKeys(Disable: Boolean);
var
OldVal : LongInt;
begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, Word(Disable), @OldVal, 0);
end;

Jika Anda ingin men-disable tombol diatas, gunakan perintah :
  SystemKeys( True);

Jika Anda mau mengaktifkan kembali / normal, gunakan :
  SystemKeys( False);

referensi:
http://razmal.blogspot.com/2005/01/seri-tips-pemrograman-delphi-tips.html
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com