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