用CreateProcess也是可以的，要么用WinExec也行
var
sinfo: tstartupinfo;
pinfo: tprocessinfomation;
begin
fillchar(sinfo,sizeof(startupinfo),#0);
sinfo.cb := sizeof(startupinfo);
sinfo.dwflags := STARTF_USESHOWWINDOW;
createprocess(nil,'Calc'nil,nil,false,CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS,nil,nil,sinfo,pinfo);
end;
Winexec('Calc',SW_RESTORE);
