Ver Mensaje Individual
  #7  
Antiguo 10-04-2015
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 23
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
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
    { Private declarations }
  public
    { Public declarations }
  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.
Responder Con Cita