...Einträge vom Systemmenü entfernen?

Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Kategorie: System

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base