发送消息执行记事本的“另存为”菜单功能（通过WM_COMMAND控制使用别的程序的菜单命令）

发送消息执行记事本的“另存为”菜单功能
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截获消息。

参考：http://blog.csdn.net/iseekcode/article/details/4743085