paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* one more fix for ExecuteProcess

Browse Source
This commit is contained in:
Tomas Hajny 2004-12-06 22:11:47 +00:00
parent 46aad77754
commit 2b40d78b32
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/os2/sysutils.pp
View File

@ -942,7 +942,8 @@ begin
FillChar (SD, SizeOf (SD), 0); FillChar (SD, SizeOf (SD), 0);
SD.Length := 24; SD.Length := 24;
SD.Related := ssf_Related_Child; SD.Related := ssf_Related_Child;
SD.PgmName := PChar (Path); CommandLine := FExpand (Path); (* Needed for other session types... *)
SD.PgmName := PChar (CommandLine);
if ComLine <> '' then if ComLine <> '' then
SD.PgmInputs := PChar (ComLine); SD.PgmInputs := PChar (ComLine);
SD.InheritOpt := ssf_InhertOpt_Parent; SD.InheritOpt := ssf_InhertOpt_Parent;
@ -1017,7 +1018,10 @@ end.
{ {
$Log$ $Log$
Revision 1.45 2004-12-06 18:50:21 hajny Revision 1.46 2004-12-06 22:11:47 hajny
* one more fix for ExecuteProcess
Revision 1.45 2004/12/06 18:50:21 hajny
* fix for ExecuteProcess * fix for ExecuteProcess
Revision 1.44 2004/12/05 19:33:08 hajny Revision 1.44 2004/12/05 19:33:08 hajny