AK
Size: a a a
AK
AK
AS
AK
AS
AK
AK
AK
AK
AS
AS
AK
AK
AK
AS
ED
DB
ED
AS
procedure TForm1.RunProcess(cmd: string);
var cmdLine: string;
begin
cmdLine := cmd;
ExtProcess:=TProcess.Create(nil);
with ExtProcess do
try
CommandLine := CmdLine;
Options := Options + [poUsePipes, poStderrToOutPut];
Execute;
finally
Free;
end;
// ShowMessage(inttostr(ExtProcess.ProcessID));
end;
extProcess.terminate(0);
AS
procedure TForm1.RunProcess(cmd: string);
var cmdLine: string;
begin
cmdLine := cmd;
ExtProcess:=TProcess.Create(nil);
with ExtProcess do
try
CommandLine := CmdLine;
Options := Options + [poUsePipes, poStderrToOutPut];
Execute;
finally
Free;
end;
// ShowMessage(inttostr(ExtProcess.ProcessID));
end;
extProcess.terminate(0);
with ExtProcess do
...
finally
Free;
end;