我用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关闭
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关闭
很多函数都不太会用,
能不能具体一点啊?
谢谢!