Fremdes PopupMenu erweitern

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Menu: THandle;
begin
  Menu := GetMenu(Memo1.Handle);
  if Menu <> 0 then
  begin
    if not InsertMenu(Menu, 0, MF_BYPOSITION or MF_STRING, 0, 'Test') then
      RaiseLastOSError;
  end
  else
    RaiseLastOSError;
end;

Ich glaube, das mit dem Kontextmenü funktioniert nicht, weil es nicht sichtbar ist. Es wird erst erzeugt, wenn es aufgerufen wird.