delphi 打开关闭 外部程序

CreateProcess(nil,pchar(s1),nil,nil,false,0,nil,nil,StartInfoo[suoyin],pinn[suoyin]);

TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
strtoint(sstt9.Strings[i]) ), 0);