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

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

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 964 • DeLiKaTeS Tetris (Тетрис) 5 899 • TDictionary Custom Sort 7 850 • Fast Watermark Sources 7 520 • 3D Designer 10 749 • Sik Screen Capture 8 078 • Patch Maker 8 279 • Айболит (remote control) 8 326 • ListBox Drag & Drop 7 165 • Доска для игры Реверси 101 104 • Графические эффекты 8 393 • Рисование по маске 7 769 • Перетаскивание изображений 6 362 • Canvas Drawing 6 738 • Рисование Луны 6 667 • Поворот изображения 5 799 • Рисование стержней 4 742 • Paint on Shape 3 443 • Генератор кроссвордов 4 435 • Головоломка Paletto 3 577 • Теорема Монжа об окружностях 4 375 • Пазл Numbrix 2 833 • Заборы и коммивояжеры 3 786 • Игра HIP 2 552 • Игра Go (Го) 2 558 • Симулятор лифта 2 948 • Программа укладки плитки 2 373 • Генератор лабиринта 3 125 • Проверка числового ввода 2 608 • HEX View 3 014

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

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