function ExecConsoleApp_online(App: TApplication; CommandLine: AnsiString; Output, Errors: TInOut_Msg) : Boolean;
const 
  ReadBuffer = 2400; 
var
  sa: TSECURITYATTRIBUTES;
  si: TSTARTUPINFO;
  pi: TPROCESSINFORMATION;
  hPipeOutputRead, hPipeOutputWrite,
  hPipeErrorsRead, hPipeErrorsWrite: THANDLE;
  Res, bTest: Boolean;
  env: array[0..100] of Char;
  szBuffer: array[0..256] of Char;
  dwNumberOfBytesRead: DWORD;

  Buffer: Pchar;
  BytesRead: DWord;
begin
  Result := False;
  sa.nLength := sizeof(sa);
  sa.bInheritHandle := true;
  sa.lpSecurityDescriptor := nil;
  CreatePipe(hPipeOutputRead, hPipeOutputWrite, @sa, 0);
  CreatePipe(hPipeErrorsRead, hPipeErrorsWrite, @sa, 0);
  ZeroMemory(@env, SizeOf(env));
  ZeroMemory(@si, SizeOf(si));
  ZeroMemory(@pi, SizeOf(pi));
  si.cb := SizeOf(si);
  si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  si.wShowWindow := SW_HIDE;
  si.hStdInput := 0;
  si.hStdOutput := hPipeOutputWrite;
  si.hStdError := hPipeErrorsWrite;

  (* Remember that if you want to execute an app with no parameters you nil the
     second parameter and use the first, you can also leave it as is with no
     problems.                                                                 *)
  Res := CreateProcess(nil, pchar(CommandLine), nil, nil, true, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, @env, nil, si, pi);

  // Procedure will exit if CreateProcess fail
  if not Res
    then begin
      CloseHandle(hPipeOutputRead);
      CloseHandle(hPipeOutputWrite);
      CloseHandle(hPipeErrorsRead);
      CloseHandle(hPipeErrorsWrite);
      Exit;
    end;
  CloseHandle(hPipeOutputWrite);
  CloseHandle(hPipeErrorsWrite);

  try
    //Read output pipe
    Buffer  := AllocMem(ReadBuffer + 1);
    try
      while true do
      begin
        bTest := ReadFile(hPipeOutputRead, Buffer[0], ReadBuffer, BytesRead, nil);
        if not bTest
          then break;
        Buffer[BytesRead] := #0;
        OemToAnsi(Buffer, Buffer);
        Output(String(Buffer));
        App.ProcessMessages;
        Result := True;
      end;
    finally
    end;
    BytesRead := 0;
    //Read error pipe
    try
      while true do
      begin
        bTest := ReadFile(hPipeErrorsRead, Buffer[0], ReadBuffer, BytesRead, nil);
        if not bTest
          then break;
        Buffer[BytesRead] := #0;
        OemToAnsi(Buffer, Buffer);
        Output(String(Buffer));
        App.ProcessMessages;
      end;
    finally
    end;
  finally
    WaitForSingleObject(pi.hProcess, INFINITE);
    CloseHandle(pi.hProcess);
    CloseHandle(hPipeOutputRead);
    CloseHandle(hPipeErrorsRead);
  end;
end;

function TUpdateDataBase_frm.DatabaseValidation() : Boolean;
const
  SQL_VIEW_ALLTABLE =
    'SELECT RDB$RELATION_NAME AS TABLENAME, RDB$RELATION_ID AS ID' +
    ' FROM RDB$RELATIONS ' +
    ' WHERE (RDB$SYSTEM_FLAG = 0) AND (RDB$RELATION_TYPE = 0) ' +
    ' ORDER BY RDB$RELATION_NAME';
  CMD_LN = '%firebird_path%fbsvcmgr %ip_path%service_mgr -user %user% -password %password% action_validate dbname %dbname% val_tab_incl %table_name% val_lock_timeout %lock_timeout%';
var
  CMD_EXE,
  CMD_TMP,
  TableName : String;
  Table_List : TStrings;
  i : Integer;
begin
  CMD_TMP := StringReplace(CMD_LN, '%user%', 'sysdba', [rfReplaceAll]);
  CMD_TMP := StringReplace(CMD_TMP, '%password%', 'masterkey', [rfReplaceAll]);
  if GetIpPath(FDBName) = ''
    then begin
      CMD_TMP := StringReplace(CMD_TMP, '%dbname%', FDBName, [rfReplaceAll]);
      CMD_TMP := StringReplace(CMD_TMP, '%ip_path%', '', [rfReplaceAll]);
    end
    else begin
       CMD_TMP := StringReplace(CMD_TMP, '%dbname%', GetClearIpPath(FDBName), [rfReplaceAll]);
       CMD_TMP := StringReplace(CMD_TMP, '%ip_path%', GetIpPath(FDBName) + ':', [rfReplaceAll]);
       CMD_TMP := StringReplace(CMD_TMP, '\', '/', [rfReplaceAll]);
    end;
  CMD_TMP := StringReplace(CMD_TMP, '%firebird_path%', dmGlobal.GetPathFireBird, [rfReplaceAll]);
  CMD_TMP := StringReplace(CMD_TMP, '%lock_timeout%', '10', [rfReplaceAll]);

  Table_List := ibGetFieldValueStringsForSql(SQL_VIEW_ALLTABLE,
                      FDBName, dmGlobal.CurrDbUserName, dmGlobal.CurrDbPassword,
                      [],
                      'TABLENAME');
  pbStatus.Position := 0;
  if Assigned(Table_List)
    then begin
      pbStatus.Properties.Max := Table_List.Count - 1;
      for i := 0 to Table_List.Count - 1 do
      begin
        TableName := Trim(Table_List[i]);
        CMD_EXE := StringReplace(CMD_TMP, '%table_name%', TableName, [rfReplaceAll]);
        memoLogs.Lines.Add(CMD_EXE);
        if TableName <> ''
          then if not ExecConsoleApp_online(Application, CMD_EXE, Write_memoLogs, Write_memoLogs)
            then Break;
        pbStatus.Position := i;
      end;
      pbStatus.Properties.Max := Table_List.Count - 1;
    end;
end;