Как прочитать пароль, скрытый за звездочками?

Материал из DRKB

Как прочитать пароль, скрытый за звездочками?[править | править код]

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

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;


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


Author: Mikel
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01719