@@ -32,8 +32,12 @@ begin
end;
FreeEnvironmentStrings(p);
+{
$Log$
- Revision 1.2 2000-07-13 11:33:07 michael
+ Revision 1.3 2000-07-25 11:27:34 jonas
+ * fixed missing comment openers for log section
+
+ Revision 1.2 2000/07/13 11:33:07 michael
+ removed logs
}
@@ -166,9 +166,12 @@ begin
end.
-
@@ -34,8 +34,12 @@ Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
begin
Result := CreatePipe (@Inhandle,@OutHandle,@piInheritablePipe,PipeBufSize);
+ Revision 1.3 2000-07-25 11:27:35 jonas
@@ -135,8 +135,12 @@ begin
If ExitStatus=Still_active then
Result:=TerminateProcess(Handle,AexitCode);
@@ -208,8 +208,12 @@ begin
WaitForSingleObject(ulong(FHandle), INFINITE);
GetExitCodeThread(FHandle, Result);