GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-09-19 01:36:08 +00:00
Code Issues Projects Releases Wiki Activity

Visible property toegevoegd aan TProcess

Browse Source
This commit is contained in:
Mark van Renswoude 2009-04-09 10:35:38 +00:00
parent ec1474ee14
commit 34eb23ccff
1 changed files with 31 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
X2UtProcess.pas
View File

@ -10,6 +10,7 @@ type
private
FEnvironment: TStrings;
FCommandLine: String;
FVisible: Boolean;
FWorkingPath: String;
protected
function BuildEnvironment(): String;
@ -25,6 +26,7 @@ type
property CommandLine: String read FCommandLine write FCommandLine;
property Environment: TStrings read FEnvironment;
property Visible: Boolean read FVisible write FVisible;
property WorkingPath: String read FWorkingPath write FWorkingPath;
end;
@ -40,6 +42,7 @@ begin
inherited;
FEnvironment := TStringList.Create();
FVisible := False;
FWorkingPath := GetCurrentDir();
end;
@ -104,6 +107,9 @@ var
startupInfo: TStartupInfo;
writePipe: Cardinal;
bytesRead: Cardinal;
newConsole: Boolean;
consoleOutput: THandle;
bytesWritten: Cardinal;
begin
Result := False;
@ -133,15 +139,33 @@ begin
CloseHandle(writePipe);
writePipe := 0;
GetMem(buffer, BufferSize);
newConsole := False;
consoleOutput := 0;
if Visible then
begin
newConsole := AllocConsole;
consoleOutput := GetStdHandle(STD_OUTPUT_HANDLE);
end;
try
repeat
ReadFile(readPipe, buffer^, BufferSize, bytesRead, nil);
if bytesRead > 0 then
AStream.WriteBuffer(buffer^, bytesRead);
until bytesRead = 0;
GetMem(buffer, BufferSize);
try
repeat
ReadFile(readPipe, buffer^, BufferSize, bytesRead, nil);
if bytesRead > 0 then
begin
AStream.WriteBuffer(buffer^, bytesRead);
if consoleOutput <> 0 then
WriteFile(consoleOutput, buffer^, bytesRead, bytesWritten, nil);
end;
until bytesRead = 0;
finally
FreeMem(buffer, BufferSize);
end;
finally
FreeMem(buffer, BufferSize);
if newConsole then
FreeConsole;
end;
GetExitCodeProcess(processInfo.hProcess, AExitCode);