Mencegah aplikasi ditutup dengan Alt-F4

Agar aplikasi tidak bisa ditutup atau dclose dengan menekan tombol Alt+F4, mungkin coding dibawah ini bisa berfungsi. monggo silahkan perhatikan  :

...
...
private
procedure AppMessage(var Msg: TMSG; var Handled: Boolean);
public
{ Public declarations }
end;
…
…
implementation
…
…
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
// meng-handle pesan
Handled := False;
case Msg.Message of
WM_SYSKEYDOWN:
if Msg.wParam = VK_F4 then
Handled := True; // cegah Alt-F4
end;
end;

Posted by Antas Delphi on - Rating: 4.5

Title : Mencegah aplikasi ditutup dengan Alt-F4
Description : Agar aplikasi tidak bisa ditutup atau dclose dengan menekan tombol Alt+F4, mungkin coding dibawah ini bisa berfungsi. monggo silahkan perhat...