在delphi中如何调用windows自带的计算器，并获得的计算结果？！！！！

你可以用DevExpress QuantumGrid 3.22 for BCB 这组控件，有自带的计算器，写返回值很容易的！

解决方案 »

  1.   

    shellexecute函数
    好象delphi不识别，怎么作呀？
    我用的delphi 5
      

  2.   

    你可以使用下面的代码:
    winexec('calc.exe');
    h1：＝FindWindow('SciCalc','计算器');
    if h1>0 then
    h2:=   FindWindowEx(h1,0,'Static',0);
     if GetWindowText(h2,pstr,255) >0 then
        Value:=StrToFloat(string(pstr));
    Value就是计算器计算的值了
      

  3.   

    楼上的，上面的方法能捕捉到系统没有cal.exe的异常吗？
    怎么做？
      

  4.   

    请问如计算器已经在运行了，如何避免再次打开计算器？
    即：保证当前只可能有一个计算器在运行，并且每次点击button时，计算器显示在最前面？
      

  5.   

    避免多次打开还不容易，
    打开前先用findwindow检查一下，如果有根据他的handle直接bringfront就行了。
      

  6.   

    最新的1stClass控件包有这种控件，很好用，在www.pchome.com有下载
      

  7.   

    可我用的是delphi5，1stClass控件包装不上呀
      

  8.   

    http://go1.163.com/delphigirl/system/54.htm