Как затенить кнопку «Закрыть» в заголовке любого окна?

Delphi FAQ >> Окна и процессы

procedure HideClose(WinHandle:HWND);
var
  hMenuHandle:HMENU;
begin
  hMenuHandle := GetSystemMenu(WinHandle, false);
  if (hMenuHandle <> 0) then
    DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;

---

В настоящее время очистка сточных вод хоть и остается достаточно дорогим удовольствием, но зато экономит много времени.