Отключить кнопку закрытия чужого окна

Для примера, запустите "Блокнот" и попробуем его кнопку закрытия окна сделать неактивной, кроме того пункт "закрыть" в системном меню тоже будет отключён! ;-]

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;

Вместо "Untitled - Notepad", нужно подставить заголовок того окна, которому вы хотите послать сообщение.

Но это окно можно закрыть из TaskBar'а.

Недавно добавленные исходники
• Animation Loaders 656 • DeLiKaTeS Tetris (Тетрис) 5 665 • TDictionary Custom Sort 7 627 • Fast Watermark Sources 7 318 • 3D Designer 10 516 • Sik Screen Capture 7 836 • Patch Maker 8 064 • Айболит (remote control) 8 118 • ListBox Drag & Drop 6 924 • Доска для игры Реверси 100 089 • Графические эффекты 8 185 • Рисование по маске 7 587 • Перетаскивание изображений 6 186 • Canvas Drawing 6 550 • Рисование Луны 6 479 • Поворот изображения 5 661 • Рисование стержней 4 581 • Paint on Shape 3 285 • Генератор кроссвордов 4 272 • Головоломка Paletto 3 408 • Теорема Монжа об окружностях 4 232 • Пазл Numbrix 2 746 • Заборы и коммивояжеры 3 648 • Игра HIP 2 454 • Игра Go (Го) 2 436 • Симулятор лифта 2 842 • Программа укладки плитки 2 288 • Генератор лабиринта 2 999 • Проверка числового ввода 2 509 • HEX View 2 910

Отключить кнопку закрытия чужого окна

Похожие по теме исходники