Удалить пункт системного меню

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Удалить пункт системного меню

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 var
   Handle: THandle;
 begin
   Handle := GetSystemMenu(Self.Handle, False);
   RemoveMenu(Handle, 1, MF_BYPOSITION);
   RemoveMenu(Handle, 2, MF_BYPOSITION);
 end;