Arsip: Mematikan Fungsi Ctrl+Al+Del


by delphi in Articles more 20 years ago 2331
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

AI Forward

๐Ÿš€ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com