diff --git a/developer/src/tike/Tike.dpr b/developer/src/tike/Tike.dpr index 156cfec68e..bc09c9bfa5 100644 --- a/developer/src/tike/Tike.dpr +++ b/developer/src/tike/Tike.dpr @@ -316,7 +316,7 @@ begin //TBX.TBXSetTheme('OfficeXP2'); if TikeActive then Exit; Application.CreateForm(TmodWebHttpServer, modWebHttpServer); - try + try Application.CreateForm(TfrmKeymanDeveloper, frmKeymanDeveloper); Application.Run; finally diff --git a/developer/src/tike/http/Keyman.Developer.System.ServerAPI.pas b/developer/src/tike/http/Keyman.Developer.System.ServerAPI.pas index c9aecb9cec..c666b49642 100644 --- a/developer/src/tike/http/Keyman.Developer.System.ServerAPI.pas +++ b/developer/src/tike/http/Keyman.Developer.System.ServerAPI.pas @@ -119,7 +119,7 @@ var ss: TStringStream; begin try - fs := TFileStream.Create(TKeymanDeveloperPaths.ServerDataPath + 'pid.json', fmOpenRead); + fs := TFileStream.Create(Filename, fmOpenRead); try ss := TStringStream.Create('', TEncoding.UTF8); try