paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 03:48:08 +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
Process: TProcess;
CmdLine: String;
WorkDir: String;
begin
CmdLine := fpdoc + FPDocParams + ArgParams + EnvParams;
WorkDir := GetCurrentDirUTF8+PathDelim+PackageName;
if ShowCmd then
begin
Writeln('WorkDirectory:',WorkDir);
WriteLn(CmdLine);
Exit;
end;
@ -252,7 +255,7 @@ begin
Process := TProcessUTF8.Create(nil);
try
Process.Options := Process.Options + [poWaitOnExit];
Process.CurrentDirectory := GetCurrentDirUTF8+PathDelim+PackageName;
Process.CurrentDirectory := WorkDir;
Process.CommandLine := CmdLine;
try
Process.Execute;