procedure TForm1.Button1Click(Sender: TObject);
var
h,m,s,s1:hwnd;
begin
h:=FindWindow('notepad',nil);
if h<>0 then
begin
m:=GetMenu(h);
s:=GetSubMenu(m,1);
s1:=GetSubMenu(s,7);
SendMessage(h,WM_COMMAND,MakeLong(GetMenuItemId(s,7),0),s1);
end;
end;
konhon忘掉過去,展望未來。找回自我,超越自我。
|