WinAPI: WinExec - 运行外部程序

原文：http://www.cnblogs.com/del/archive/2008/02/13/1067871.html

//声明
WinExec(
  lpCmdLine: LPCSTR; {文件名和参数; 如没指定路径会按以下顺序查找: 程序目录/当前目录/System32/Windows/PATH环境变量}
  uCmdShow: UINT     {启动选项}
): UINT;

//返回值:
大于                     {调用成功}
等于                      {内存不足}
ERROR_FILE_NOT_FOUND = ;  {文件名错误}
ERROR_PATH_NOT_FOUND = ;  {路径名错误}
ERROR_BAD_FORMAT     = ; {EXE 文件无效}

//uCmdShow 参数可选值:
SW_HIDE            = ; {隐藏, 并且任务栏也没有最小化图标}
SW_SHOWNORMAL      = ; {用最近的大小和位置显示, 激活}
SW_NORMAL          = ; {同 SW_SHOWNORMAL}
SW_SHOWMINIMIZED   = ; {最小化, 激活}
SW_SHOWMAXIMIZED   = ; {最大化, 激活}
SW_MAXIMIZE        = ; {同 SW_SHOWMAXIMIZED}
SW_SHOWNOACTIVATE  = ; {用最近的大小和位置显示, 不激活}
SW_SHOW            = ; {同 SW_SHOWNORMAL}
SW_MINIMIZE        = ; {最小化, 不激活}
SW_SHOWMINNOACTIVE = ; {同 SW_MINIMIZE}
SW_SHOWNA          = ; {同 SW_SHOWNOACTIVATE}
SW_RESTORE         = ; {同 SW_SHOWNORMAL}
SW_SHOWDEFAULT     = ; {同 SW_SHOWNORMAL}
SW_MAX             = ; {同 SW_SHOWNORMAL}

---

//举例, 启动记事本:
procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('notepad.exe', SW_SHOWNORMAL);
end;