Увидеть пароль скрытый за звёздочками 2

Delphi , Синтаксис , Пароли

Автор: Baa
WEB-сайт: http://forum.vingrad.ru

Наверно так: хотя классов может быть больше

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Wnd: HWND;
  lpClassName: array[0..$FF] of Char;
begin
  Wnd := WindowFromPoint(Mouse.CursorPos);
  GetClassName(Wnd, lpClassName, $FF);
  if ((strpas(lpClassName) = 'TEdit') or (strpas(lpClassName) = 'EDIT')) then
    PostMessage(Wnd, EM_SETPASSWORDCHAR, 0, 0);
end;

Дополнение от: Mikel

Здесь проблема: если страница памяти защищена, то её нельзя прочитать таким способом, но можно заменить PasswordChar(пример: поле ввода пароля в удаленном соединении)

Статья Увидеть пароль скрытый за звёздочками 2 раздела Синтаксис Пароли может быть полезна для разработчиков на Delphi и FreePascal.

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

:: Главная :: Пароли ::