在Delphi中，怎样调用Windows的日历和计算器？

Question

//参考
uses ShellApi;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, nil, 'NOTEPAD.EXE', nil, nil, SW_SHOW);
end;

Answer 1

或用
    try
    Winexec('calc.exe', sw_normal);
  except
    showmessage(' WINDOWS 没有安装计算器 ');
    exit;
  end;

Answer 2

uses ShellApi;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, nil, 'Calc.EXE', nil, nil, SW_SHOW);
end;

Answer 3

winexec('c:\windows\日历程序文件名（包括.exe）');
winexec('c:\windows\计算器程序文件名（包括.exe）');

Answer 4

系统盘\WINNT\system32下找一找吧，
我找了，太多，你自己来吧