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

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