Автор: Fernando Silva

 

Пример показывает, как при инициализации формы происходит поиск нашего окна, а затем вычисление местоположения нужной нам кнопки в заголовке окна.

Code:

procedure TForm1.FormCreate(Sender: TObject);

var

hwndHandle: THANDLE;

hMenuHandle: HMENU;

iPos: Integer;

 

begin

hwndHandle := FindWindow(nil, PChar(Caption));

if (hwndHandle <> 0) then

begin

   hMenuHandle := GetSystemMenu(hwndHandle, FALSE);

   if (hMenuHandle <> 0) then

   begin

     DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

     iPos := GetMenuItemCount(hMenuHandle);

     Dec(iPos);

       { Надо быть уверенным, что нет ошибки т.к. -1 указывает на ошибку }

     if iPos > -1 then

       DeleteMenu(hMenuHandle, iPos, MF_BYPOSITION);

   end;

end;

end;

 

 

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

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!