Arsip: Melarang "Tutup" Aplikasi, kecuali shutdown/restart
by delphy in Articles more 19 years ago 2651
Kita semua tahu, bagaimana cara melarang user menutup aplikasi kita, cukup dengan:
procedure TDelphiID.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := False; end; |
tapi cara ini membuat aplikasi tidak bisa ditutup, ketika kita ingin shutdown atau restart
antisipasi-nya: manfaatkan WM_QUERYENDSESSION
WM_QUERYENDSESSION dihasilkan oleh Windows ketika OS akan restart/shutdown.
coba perhatikan kode berikut:
unit uDelphiID; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TfDelphiID = class(TForm) procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); private procedure WMQueryEndSession(var Message : TWMQueryEndSession); message WM_QUERYENDSESSION; public WindowsClosing : Boolean; end; var fDelphiID: TfDelphiID; implementation {$R *.DFM} { TfDelphiID } procedure TfDelphiID.FormCreate(Sender: TObject); begin WindowsClosing := False; end; procedure TfDelphiID.WMQueryEndSession(var Message: TWMQUERYENDSESSION); begin WindowsClosing := True; end; procedure TfDelphiID.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := WindowsClosing; end; end. |
Silahkan dicoba.
Random Articles
- Mematikan Fungsi Ctrl+Al+Del
- Terbilang versi Indonesia dan english
- Tips: Macro OfAll and auto generate variable in Lazarus
- Membuat Stored Procedure di MS Access dengan parameter
- Folder SIZE
- Tulis/Baca "string" di file .INI
- Mengandakan nama folder seperti virus
- Tedit Array
- KADao, native DAO component for Delphi
- Windows Kosong dengan WINAPI
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