procedure TMyForm1.ToolButton2Click(Sender: TObject);//捕捉计算器
var
HWndwin: HWnd;
begin
inherited;
winexec('calc.exe',SW_SHOWDEFAULT);
HWndwin:=findwindow(nil,'计算器');
if HWndwin=null then
application.MessageBox('没找到!','提示',0)
else
begin
if windows.SetParent(HWndwin,self.Panel2.Handle)=null then
application.MessageBox('失败了','提示',0);
end;
end;