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忘掉過去,展望未來。找回自我,超越自我。
|
只有注冊用戶登錄后才能發(fā)表評論。 | ||
![]() |
||
網(wǎng)站導(dǎo)航:
博客園
IT新聞
Chat2DB
C++博客
博問
管理
|
||
相關(guān)文章:
|
||