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:
Jika Anda ingin men-disable tombol diatas, gunakan perintah :
Jika Anda mau mengaktifkan kembali / normal, gunakan :
referensi:
http://razmal.blogspot.com/2005/01/seri-tips-pemrograman-delphi-tips.html
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
Random Articles
- Tips: Garis Panduan di Form Designer
- Membuat Exe application Delphi sekecil mungkin
- Menampilkan Aplikasi Yang Berjalan (visible)
- Zoom-In and Zoom-Out Text in a TRichEdit (Undocumented feature)
- Contoh Unit Untuk Block Keyboard Keys,.,.,.,.
- Konversi Stream
- Lazarus Release Candidate 2 of 3.0
- Check MySQL Service on Our PC
- Tedit Array
- Lazarus Release 4.0RC1
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
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago