paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

build_lcl_docs: showcmd: show working directory

Browse Source 
git-svn-id: trunk@37855 -
This commit is contained in:
mattias 2012-07-03 10:44:48 +00:00
parent 2edaf60158
commit 4458799589
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
docs/html/build_lcl_docs.lpr
View File

@ -235,10 +235,13 @@ procedure Run;
var var
Process: TProcess; Process: TProcess;
CmdLine: String; CmdLine: String;
WorkDir: String;
begin begin
CmdLine := fpdoc + FPDocParams + ArgParams + EnvParams; CmdLine := fpdoc + FPDocParams + ArgParams + EnvParams;
WorkDir := GetCurrentDirUTF8+PathDelim+PackageName;
if ShowCmd then if ShowCmd then
begin begin
Writeln('WorkDirectory:',WorkDir);
WriteLn(CmdLine); WriteLn(CmdLine);
Exit; Exit;
end; end;
@ -252,7 +255,7 @@ begin
Process := TProcessUTF8.Create(nil); Process := TProcessUTF8.Create(nil);
try try
Process.Options := Process.Options + [poWaitOnExit]; Process.Options := Process.Options + [poWaitOnExit];
Process.CurrentDirectory := GetCurrentDirUTF8+PathDelim+PackageName; Process.CurrentDirectory := WorkDir;
Process.CommandLine := CmdLine; Process.CommandLine := CmdLine;
try try
Process.Execute; Process.Execute;