Mazanie položiek zo systémového menu programu
Mazanie položiek zo systémového menu programu.
procedure TForm1.Button1Click(Sender: TObject); var handle: THandle; begin handle := GetSystemMenu(Self.Handle, false); RemoveMenu(handle, 6, MF_BYPOSITION); RemoveMenu(handle, 5, MF_BYPOSITION); end;