[grigorill]

Здравствуйте
Недавно стал решать задачу, как заблочить кнопку закрытия в 2007 outlook-е.Наткнулся на проблему что вот этот код:

Код:

procedure TForm1.FormCreate(Sender: TObject);

var
hwndHandle: THANDLE;
hMenuHandle: HMENU;
iPos: Integer;
begin
hwndHandle := FindWindow(nil, 'Что то там');
if (hwndHandle <> 0) then
begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
iPos := GetMenuItemCount(hMenuHandle);
Dec(iPos);
if iPos > -1 then
DeleteMenu(hMenuHandle, iPos, MF_BYPOSITION);

end;
end;
end.

Админ: Пользуемся тегами для оформления кода!

прекрасно блочит все приложения типа Notepad WinRAR и т.д, но при работе с outlook не дает никаких результатов.Может кто знает как справиться с проблемой?

[grigorill]

Может кто-то подскажет как определять окно по части заголовка?Просто предыдущий мой код
hwndHandle := FindWindow(nil, 'Что то там');
позволяет блочить только если название окна полностью совпадает с 'Что то там'

[NumLock]

через EnumWindows/EnumChildWindows