1.直接调用    前面uses加 ShellAPI

ShellExecute(Handle, 'open', PChar('calc.exe'), nil, nil, SW_SHOW);

2.直接调用      前面加StdCtrls

WinExec('calc.exe',SW_SHOWNORMAL);

3.以此类推：

调用记事本

WinExec('notepad.exe',1); 

用绝对目录调用：

winexec('c:\windows\calc.exe');

附件在系统中的目录：
win2000举例，

计算器是 C:\WINNT\System32\calc.exe   
     画图是 C:\WINNT\System32\mspaint.exe   
     记事本是 C:\WINNT\System32\notepad.exe   
      扫雷是 C:\WINNT\System32\winmine.exe