» Как запретить кнопку close в любом окне - Операционная система, Разное, Delphi. Библиотека исходников форума программистов - programmersforum.ru

delphi исходники для управления windows

У нас вы качаете только рабочие исходники

форум программистов

Home

Форум программистов Delphi

Как запретить кнопку close в любом окне

Как запретить кнопку close в любом окне

Как запретить кнопку close в любом окне

Следующий пример запрещает кнопку закрытия (и пункт "закрыть" (close) в системном меню) нужного нам окна (в данном случае Notepad).

procedure TForm1.Button1Click(Sender: TObject);
var
  hwndHandle : THANDLE;
  hMenuHandle : HMENU;
begin
  hwndHandle := FindWindow(nil, 'Untitled - Notepad');
  if (hwndHandle <> 0) then begin
    hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
    if (hMenuHandle <> 0) then
      DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
  end;
end;

Эта запись была добавлена в Четверг, 22 мая, 2008 - 23:11 В разделы Операционная система, Разное. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.

Обсуждение закрыто.

Emtas турецкий пеллетный котёл

Пеллетные котлы интернет магазин

Архивы
- Май 2008
- Декабрь 2007
Категории
- Delphi (226)
  - BDE (3)
  - dll (10)
  - Exceptions (2)
  - IDE (10)
  - INI-файлы (3)
  - OLE (2)
  - БД (7)
  - Игры (19)
  - Медиа (11)
  - Ресурсы (12)
  - Сеть, модем (22)
  - Система (33)
  - Файлы (6)
  - Функции (6)
- Microsoft Office (12)
  - Excel (7)
  - Word (5)
- Pascal (12)
- Win API (85)
  - Hooks (4)
  - Завершение работы (13)
  - Запуск программ (16)
  - Общие вопросы (22)
  - Окна (1)
  - Переменные среды (9)
- Алгоритмы (86)
  - Графика (52)
  - Дата, время (6)
  - Кодирование (6)
  - Математика (4)
  - Преобразования (4)
- Аппаратные средства (76)
  - BIOS (3)
  - CD, DVD (7)
  - Видеосистема (3)
  - Диски (4)
  - Звуковые устройства (4)
  - Источники питания (1)
  - Клавиатура (24)
  - Мышка (5)
  - Порты (20)
  - Процессор (4)
  - Сетевая карта (1)
- Базы данных (29)
  - ADO (9)
  - BLOB поля (11)
  - DBase (1)
  - interbase (5)
  - MS Office (2)
  - sql (1)
- Классы (28)
  - Application (5)
  - TBitMap (4)
  - TCanvas (2)
  - TDateTime (1)
  - TFont (4)
  - TIcon (2)
  - TJpegImage (1)
  - TList (1)
  - TmetaFile (1)
  - TString, TStrings (4)
- Компоненты (172)
  - BitBtn (4)
  - ComboBox (2)
  - CoolBar (1)
  - DBCtrlGrid (1)
  - DBGrid (18)
  - DBImage (2)
  - DrawGrid (1)
  - Edit (3)
  - FileListBox (1)
  - form (29)
  - image (12)
  - ImageList (3)
  - Label (1)
  - ListBox (9)
  - ListView (2)
  - MediaPlayer (6)
  - Memo (8)
  - Menu (5)
  - PageControl (1)
  - ProgressBar (2)
  - Query (1)
  - RadioButton (1)
  - RadioGroup (1)
  - RichEdit (4)
  - ScrollBox (3)
  - ShellListView (2)
  - SpeedButton (1)
  - StatusBar (1)
  - StringGrid (4)
  - TabbedNoteBook (1)
  - Timer (2)
  - TrackBar (1)
  - TreeView (15)
  - WebBrowser (6)
- Операционная система (183)
  - Help (3)
  - Диалоги (25)
  - Процессы (26)
  - Реестр (5)
  - Сети, интернет (36)
  - Сообщения (7)
  - Файловая система (37)
  - Экран (13)
  - Ярлыки (5)
- Разное (79)
Кейворды

форум программистов