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
- Ngoding Pascal di REPL.IT
- FolderCustomizer: Percantik & Protek Folder Anda
- Dynamic Menu based on MySQL Database Method II
- Verbal Expression, bikin mainan Regex dengan Pascal jadi gampang
- Flushing tables or query
- Bikin Balooon tooltip
- Toggle Key Monitoring
- Procedure Dan Function di Delphi
- Pascal Indonesia Reborn
- Pemisah ribuan saat input edit
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago