咱样调用windows自带的计算器？

Question

var
  HWndCalc:HWnd;
begin
  inherited;
  HWndCalc:=FindWindow(nil,'计算器');
  if HWndCalc=0 then
    Winexec('calc',SW_RESTORE)
  else
    begin
      SendMessage(HWndCalc,WM_ClOSE,0,0);
      Winexec('calc',SW_RESTORE);
    end;end;

Answer 1

WinExec(PChar('c:\....'), SW_SHOWNORMAL);

Answer 2

winexec('path\calc.exe',SW_SHOWNORMAl);
        ______________    ____________
     路径\文件名称.exe    窗口显示模式

Answer 3

首先获得系统目录名称syspath。
winexec('syspath\calc.exe',SW_SHOWNORMAl);
或者
ShellExecute(Handle,'Open','syspath\calc.exe',nil,nil,SW_SHOWNORMAl);
可以参考帮助或csdn，这两个函数很有用的，尤其是后一个。

Answer 4

ShellExecute(handle,'open',PChar('计算器的目录.exe'),nil,nil,SW_SHOW);