Привет, помогите пожалуйста разабраться с изменением меню окна "ALT+SPACE" на своё под Delphi XE . Я хочу убрать ненужное и добавить своё, процедура ниже почему-то не работает, пример добавления с помощью
| Код | function InsertMenu(Menu: HMenu; Position, Flags, IDNewItem: Word; NewItem: PChar): Bool; |
тоже было бы хорошо, а то я в описании не очень разобрался :-( только начал изучать программирование
| Код |
Procedure TForm1.FormCreate(Sender: TObject);
Var
hMenuHandle: HMENU;
Begin
hMenuHandle := GetSystemMenu(Handle, false);
If hMenuHandle <> 0
Then
Begin
DeleteMenu(hMenuHandle, SC_MAXIMIZE, MF_BYCOMMAND);
DeleteMenu(hMenuHandle, SC_MINIMIZE, MF_BYCOMMAND);
DeleteMenu(hMenuHandle, SC_MOVE, MF_BYCOMMAND);
End;
End; |
Примеры изменения контекста кнопки таскбара под ХР и В7 тоже бы не помешали... |