怎么重新设置一个外部程序的窗口标题和屏蔽一些菜单相啊?

Question

我在现在的项目中用ShellExecute(0, 'Open', PChar(strFileName), Nil, Nil, SW_SHOWNORMAL);打开了一个与文件相关连的外部应用程序,现在想重新设置一下窗口标题和屏蔽一些菜单的功能,怎么办?
  不想再重写这个应用程序了,那样太费时费力了.

Answer 1

var
  Mwd,Cwd :LongInt ;
  Mwd :=FindWindow('Tform1','定义航班');  if Mwd=0 then
  begin
    Exit;
  end;
  SetWindowText(Mwd,'定义航班--此窗口由另一程序自动控制,请勿关闭');

Answer 2

怎么屏蔽或删除菜单中一些不需要的功能呢?如 文件->新建 文件->另存为等