发送消息执行记事本的“另存为”菜单功能

发送消息执行记事本的“另存为”菜单功能
procedure TForm1.FormCreate(Sender: TObject);
var
  hNotepad: Cardinal;
begin
  hNotepad := FindWindow('Notepad', nil);
  if hNotepad > 0 then
  begin
    SendMessage(hNotepad, WM_COMMAND, 4, 0);
  end;
end;

SendMessage的wParam参数可以用D7自带的Winsight截获消息。