Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Программа и интерфейс » Скрыть кнопку "закрыть" в заголовке окна

Скрыть кнопку "закрыть" в заголовке окна

Автор: Fernando Silva

Взято с Исходников.ru

procedure TForm1.FormCreate(Sender: TObject);
var
  hwndHandle: THANDLE;
  hMenuHandle: HMENU;
  iPos: Integer;
begin
  hwndHandle := FindWindow(nil, PChar(Caption));
  if (hwndHandle <> 0) then
  begin
    hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
    if (hMenuHandle <> 0) then
    begin
      DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
      iPos := GetMenuItemCount(hMenuHandle);
      Dec(iPos);
      { Если нет ошибок }
      if iPos > -1 then
        DeleteMenu(hMenuHandle, iPos, MF_BYPOSITION);
    end;
  end;
end;