在上一篇文章 

Delphi调用外部程序函数：WinExec() 和ShellExecute详解：https://taoyoyo.net/am.php?t=znz7yhEuLduJ 

WinExec最简单，两个参数，前一个指定路径，后一个指定显示方式.
后一个参数值得说一下，比如泥用 SW_SHOWMAXMIZED方式去加载一个无最大化按钮的程序，就是Neterm,calc等等，就不会出现正常的窗体，但是已经被加到任务列表里了。

ShellExecute较 WinExex灵活一点，可以指定工作目录，下面的Example就是直接打开 c: emp1.txt,而不用加载与 txt文件关联的应用程序，很多安装程序完成后都会打开一个窗口，来显示Readme or Faq,我猜就是这么作的啦。
　　ShellExecute(NULL,NULL,_T("1.txt",NULL,_T("c:\temp",SW_SHOWMAXMIZED)

CreateProcess最复杂，一共有十个参数，不过大部分都可以用NULL代替，它可以指定进程的安全属性，继承信息，类的优先级等等。
来看个很简单的Example:
　　STARTUPINFO stinfo
　　//启动窗口的信息
　　PROCESSINFO procinfo //进程的信息
　　CreateProcess(NULL,_T("notepad.exe",NULL,NULL.FALSE,
　　NORMAL_PRIORITY_
　　CLASS,NULL,NULL, &stinfo,&procinfo)

这里有一个应用示例，记录一下

创建一个函数：

function TForm1.fnDOS_Command(p_Cmd:string):boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;

begin
  Result := False;
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb := SizeOf(TStartupInfo);

  //合菽尢咣萏吣敞菽蕹傪旕昞帵偵
  StartupInfo.dwFlags := StartF_UseShowWindow;
  StartupInfo.wShowWindow := SW_Hide;

  GetStartupInfo(StartupInfo); 
  StartupInfo.lpTitle := pchar('HSPARAM.exe'); 
  if CreateProcess(nil, PCHAR(p_Cmd), nil, nil, False, CREATE_DEFAULT_ERROR_MODE,
                   nil, PCHAR(GetCurrentDir),    // 婲摦僨傿儗僋僩儕
                   StartupInfo,ProcessInfo) then
    begin
      {
      WaitForSingleObject(ProcessInfo.hProcess, Infinite);
      CloseHandle(ProcessInfo.hProcess);
      }
    end
  else
    begin
      //Writeln(FormatDateTime('yyyymmdd',Date) + FormatDateTime('hhmmss',Time)+' CreateProcess偱醋皵瓙?GetLastError='+IntToStr(GetLastError));
      Exit;
    end;
  Result := True;
end;

调用：

x_phsparam_flie:='\\10.105.10.52\bin\jobparam\jobparam.exe';
pParm:='di9ke2dx ZTB7541 9912 Y';

pCmd:= x_phsparam_flie+' '+pParm;

       if fnDOS_Command(pCmd) then begin
                 //showmessage('ok');
       end else begin
                showmessage('计算有问题，未完成计算。');
       end;