procedure TForm1.Timer1Timer(Sender: TObject);
var
hWin:Thandle;
begin
hWin:=FindWindow('计算器',nil);
if hWin<>0 then
begin
self.Caption:='发现Foxmail程序句柄';
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
hWin:Thandle;
begin
hWin:=FindWindow(nil,'计算器');
if hWin<>0 then
begin
self.Caption:='发现计算器程序句柄';
end;
end;
这是找到计算器的句柄，找Foxmail的句柄，你需要知道Foxmail的窗体的类名或窗体的标题。
执行一个外部应用程序的菜单事件
procedure TForm1.Button1Click(Sender: TObject);
var
MainMenu,SubMenu:thandle;
begin
MainMenu:=GetMenu(handle);
if MainMenu<>0 then
begin
SubMenu:=GetSubMenu(MainMenu,0);
SendMessage(handle,WM_COMMAND,MakeLong(GetMenuItemId(SubMenu,0),0),0);//表示执行窗口主菜单的第一个子菜单下的第一个菜单的单击事件。
end;
end;
