[Delphi] 取消關閉鍵

admin

要取消視窗右上角的X關閉鍵, 加入以下程式即可

1. procedure TfrmMT.FormCreate(Sender: TObject);
   
2. var
   
3.   hMenuHandle: Integer;
   
4. begin
   
5.   hMenuHandle := GetSystemMenu(Handle, False);
   
6.   if (hMenuHandle <> 0) then
   
7.     DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
   
8. end;

複製代碼