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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

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’а.

{/codecitation}

Добавить комментарий