공지

[0227행복이야기] alt + f4 방지

고폴 2017. 2. 27. 12:53

https://www.delmadang.com/community/bbs_view.asp?bbsNo=17&bbsCat=0&indx=452741&page=1


freepass
(이영우) 		 
bAltF4: boolean;

procedure TfrmMain.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if bAltF4 then // Alt+F4 종료방지
  begin
    CanClose := false;
    bAltF4 := false;
    exit;
  end;
end;

procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift = [ssAlt]) and (Key = VK_F4) then
    bAltF4 := true;
end;

   2017-02-27 오전 8:49:38