procedure TCheckState.runSupportSlave;
var
  param: string;
  app: string;
  hToken: THandle;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  try
    writeLog('Запуск программы.');
    param := '-Xmx256m -jar "' + dirRoot + '\myapp.jar" "' + dirRoot + '\param.json"';
    app := 'C:\Program Files\Java\jre1.8.0_241\bin\java.exe';
    writeLog(app + ' ' + param);
    GetStartupInfo(StartupInfo);
    if WTSQueryUserToken(WtsGetActiveConsoleSessionID, @hToken) then
    begin
      if CreateProcessAsUser(hToken, PChar(app), PChar(param), nil, nil, False, CREATE_NEW_CONSOLE, nil, nil, StartupInfo, ProcessInfo) then
        WaitForSingleObject(ProcessInfo.hProcess, INFINITE)
      else
        writeLog(SysErrorMessage(GetLastError));
    end
    else
      writeLog(SysErrorMessage(GetLastError));
  except
    on E: Exception do
      writeLog(e.Message);
  end;
end;