我用CreateProcess函数打开了一个文件代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var  StartUpInfo: TStartUpInfo;  ProcessInfo: TProcessInformation;begin  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);  with StartupInfo do  begin    cb := SizeOf(TStartupInfo);    dwFlags := STARTF_USESHOWWINDOW;    wShowWindow := SW_SHOWNORMAL;  end;  CreateProcess(PChar('c:\1.exe'), nil, nil, nil, False,    NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo);
end;
我如何再用 CreateProcess函数或其它什么函数 将我打开的1.exe关闭