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

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

Previous Home Next

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

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;

Автор ответа: Baa
Взято с Vingrad.ru http://forum.vingrad.ru

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

Автор ответа: Mikel
Взято с Vingrad.ru http://forum.vingrad.ru

DELPHI FAQ