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

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

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 770 • DeLiKaTeS Tetris (Тетрис) 5 749 • TDictionary Custom Sort 7 706 • Fast Watermark Sources 7 387 • 3D Designer 10 605 • Sik Screen Capture 7 917 • Patch Maker 8 140 • Айболит (remote control) 8 194 • ListBox Drag & Drop 6 993 • Доска для игры Реверси 100 301 • Графические эффекты 8 270 • Рисование по маске 7 647 • Перетаскивание изображений 6 249 • Canvas Drawing 6 621 • Рисование Луны 6 543 • Поворот изображения 5 706 • Рисование стержней 4 641 • Paint on Shape 3 346 • Генератор кроссвордов 4 318 • Головоломка Paletto 3 469 • Теорема Монжа об окружностях 4 293 • Пазл Numbrix 2 779 • Заборы и коммивояжеры 3 698 • Игра HIP 2 495 • Игра Go (Го) 2 484 • Симулятор лифта 2 882 • Программа укладки плитки 2 315 • Генератор лабиринта 3 040 • Проверка числового ввода 2 544 • HEX View 2 949

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

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