Cita:
Empezado por Casimiro Notevi
He oído alguna vez que existen programitas para ver las claves que se teclean.
Igual tiene alguno instalado.
|
Así es, y no es una tarea titánica realizarlos, el control
Edit no es precisamente un virtuoso de la seguridad
.
Un ejemplo trivial sobre un form y usando solamente VCL:
Código Delphi
[-]
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
procedure AppEventsIdle(Sender: TObject; var Done: Boolean);
...
implementation
procedure TForm1.AppEventsIdle(Sender: TObject; var Done: Boolean);
var
wc : TWinControl;
begin
wc := FindVCLWindow(Mouse.CursorPos);
if wc <> nil then
if wc is TCustomEdit then
Caption := TCustomEdit(wc).Text;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := 'Edit 1, continua en Edit2';
Edit2.Text := 'Edit 2, continua en Edit3';
Edit3.Text := 'Edit 3, fin';
Edit1.PasswordChar := '*';
Edit2.PasswordChar := '*';
Edit3.PasswordChar := '*';
Application.OnIdle:= AppEventsIdle;
end;
...
Trabajando un poco con Win Api se puede elaborar código que funcione sin problemas sobre otra aplicación.
Saludos