oscjae,
Cita:
|
Empezado por oscjae
...la aplicación se desarrolla en Windows 7 y Delphi 2007, y se ejecuta en Windows 7...
|
Pregunto: ¿El antivirus de la máquina de producción,
esta activo y no ha detectado ningún malware que pueda estar relacionado con el problema planteado?
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
edtLogin: TEdit;
edtPassword: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure edtPasswordKeyPress(Sender: TObject; var Key: Char);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
edtPassword.PasswordChar := #0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (edtLogin.Text = 'User') and (edtPassword.Text = '1234') then
MessageDlg('Acceso Permitido',mtInformation,[mbOK],0)
else
MessageDlg('Acceso Negado',mtError,[mbOK],0)
end;
procedure TForm1.edtPasswordKeyPress(Sender: TObject; var Key: Char);
begin
SendMessage(edtPassword.Handle, EM_SETPASSWORDCHAR, Ord('*'), 0);
end;
end.
El código anterior en Delphi 7 sobre Windows 7 x32 y x64,
Habilita la protección de password en un TEdit por medio de Windows API.
Nota : Te sugiero probar este código en la máquina de desarrollo y producción
y verificar si el comportamiento del error persiste.
Espero sea útil
Nelson.