VPF::ShowPassword - Форум программистов

Akella

Дата 1.8.2003, 08:55 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Есть такой код: при щелчке мышью в окошко ввода (типа TEdit) туда посылается сообщение о том, чтобы звездочки поменялись на нормальные символы.
Но не во всех программах работает. Может там установлена какая-нибудь защита от PostMessage (Wnd, EM_SETPASSWORDCHAR, 0, 0).

Цитата

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')
or (strpas(lpClassName) = 'RichEdit20W')) then
PostMessage (Wnd, EM_SETPASSWORDCHAR, 0, 0)
end;

Mikel

Дата 1.8.2003, 09:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2

А зачем по щелчку мыши? Перебери просто все окна(это не долго) и поменяй PASSWORDCHAR у их буферов, можно без проверки класса.
Исходник можешь взять с FAQ по Delphi форума в статье про WinAPI

Это сообщение отредактировал(а) Mikel - 1.8.2003, 09:03

--------------------

...so remember, it's better to burn out than to fade away

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »