Скрытие ввода консоли при вводе пароля в командной строке на Delphi

Delphi , Программа и Интерфейс , Приложение своё

Скрытие ввода консоли при вводе пароля в командной строке на Delphi

Вопрос, поднятый пользователем JackT, заключается в необходимости скрыть ввод пароля в командной строке консольного приложения на Delphi. Проблема заключается в том, что стандартный способ перенаправления вывода в файл NUL не работает, и пользователь ищет более эффективное решение.

Решение проблемы

Первое предложенное решение, которое пользователь нашел на Stack Overflow и улучшил, использует функцию GetConsoleMode для отключения эхо-вывода и ввода строки. Это позволяет скрыть символы, вводимые пользователем, при этом они все равно сохраняются в буфере.

function GetPassword(const InputMask: Char = '*'): string;
var
  OldMode: Cardinal;
  c: char;
  I, L: Integer;
begin
  GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), OldMode);
  SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), OldMode and not (ENABLE_LINE_INPUT or ENABLE_ECHO_INPUT));
  Result := '';
  try
    while not Eof do
    begin
      Read(c);
      if c = #8 then
      begin
        L := Length(Result);
        if L > 0 then
        begin
          Write(#8' ' #8);
          Result := LeftStr(Result, L - 1);
          continue;
        end;
      end
      else if c = #13 then
      begin
        break;
      end
      else
      begin
        Result := Result + c;
        Write(InputMask);
      end;
    end;
  finally
    SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), OldMode);
  end;
end;

Альтернативное решение

Альтернативное решение может заключаться в использовании сторонней библиотеки или компонента для ввода пароля, который уже реализует необходимую функциональность. Например, можно использовать компоненты для работы с консолью, которые предоставляют более продвинутые возможности, включая скрытый ввод.

Заключение

В данной статье были рассмотрены два варианта решения проблемы скрытия ввода консоли при вводе пароля в Delphi-приложениях. Первое решение, основанное на отключении эхо-вывода, является простым и эффективным способом реализации скрытого ввода с использованием встроенных функций WinAPI. Альтернативное решение подразумевает использование сторонних библиотек, что может быть удобно в случае, если требуется более широкий функционал или если разработчик предпочитает не затрагивать низкоуровневые аспекты работы с консолью.

Создано по материалам из источника по ссылке.

Контекст вопроса заключается в поиске способа скрыть ввод пароля в командной строке консольного приложения на языке программирования Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Приложение своё ::