如何调用windows自带的计算器(50分)

我想在自己的应用程序中调用windows自带的计算器,如何做?

请问是否是任明汉老师，你近来好吗？？？

WinExec(pchar('Calc.exe'),1);

winexec('calc.exe',sw_normal);

wzb_shipman的方法好！

关闭时：
var
CalcHwnd:integer;
CalcHwnd:=findwindow('计算器',nil) ;
if CalcHwnd <> 0 then
sendmessage(CalcHwnd,WM_DESTROY,0,0);

接受答案了.

procedure TForm1.Button1Click(Sender: TO b j e c t ) ;
v a r
S t a r t u p I n f o : T S t a r t u p I n f o ;
P r o c e s s I n f o : T P r o c e s s I n f o r m a t i o n ;
b e g i n
// 初始化工作
F i l l C h a r ( S t a r t u p I n f o , S i z e o f ( S t a r t u p I n f o ) , # 0 ) ;
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STA RT F _ U S E S H O W W I N D O W;
C r e a t e P r o c e s s ( n i l ,
'Calc', // 运行计算器
n i l ,
n i l ,
f a l s e ,
C R E ATE_NEW_CONSOLE or
N O R M A L _ P R I O R I T Y _ C L A S S ,
n i l ,
n i l ,
S t a r t u p I n f o ,
P r o c e s s I n f o ) ;
e n d ;