Código
"*****". Então você se pergunta: que senha será esta que está digitada? Bom, antes de você optar pelo método
de tentativa e erro, crie uma aplicação nova no Delphi e coloque no formulário um componente TTimer. No
evento OnTimer deste componente coloque o seguinte código:}
var
WndHint: THintWindow = nil; // declare a variável fora da procedure
procedure TForm1.Timer1Timer(Sender: TObject);
var
Pos: TPoint;
HWin: THandle;
Paswd: array[0..63] of Char;
R: TRect;
begin
GetCursorPos(Pos);
HWin := WindowFromPoint(Pos);
if SendMessage(HWin, EM_GETPASSWORDCHAR, 0, 0) <> 0 then
begin
if WndHint = nil then
begin
WndHint := THintWindow.Create(Self);
WndHint.Color := clInfoBk;
SendMessage(HWin, WM_GETTEXT, 64, Longint(@Paswd));
R := Rect(Pos.X, Pos.Y + 18, Pos.X +
WndHint.Canvas.TextWidth(Paswd) + 8,
Pos.Y + 18 + WndHint.Canvas.TextHeight(Paswd));
WndHint.ActivateHint(R, Paswd);
end;
end
else if WndHint <> nil then
begin
WndHint.ReleaseHandle;
WndHint := nil;
end;
end;
//By Instance
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009