|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Блокировка кнопки X в 2007 outlook-е
Здравствуйте
Недавно стал решать задачу, как заблочить кнопку закрытия в 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 не дает никаких результатов.Может кто знает как справиться с проблемой? Последний раз редактировалось Admin, 27.01.2011 в 17:30. |
#2
|
|||
|
|||
Может кто-то подскажет как определять окно по части заголовка?Просто предыдущий мой код
hwndHandle := FindWindow(nil, 'Что то там'); позволяет блочить только если название окна полностью совпадает с 'Что то там' |
#3
|
||||
|
||||
через EnumWindows/EnumChildWindows
Пишу программы за еду. __________________ |