Dar Master Password a Paradox para que no lo haga el usuario

[nefy]

Hola a todos quisiera saber si alguno de ustedes sabe como darle la contraseña a Delphi 6 de tal manera que no le aparezca el cuadro de dialogo que manda Delphi para pedir password de tablas Paradox protegidas con master password, sino que inicie directamente el sistema.

Gracias de antemano

[marcoszorrilla]

Pues es muy sencillo utiliza un componente TDatabase y allí le indicas la clave, como parámetro, poniendo su propiedad "LoginPrompt" a falso.


Un Saludo.

[nefy]

Perdona marcos por mi ineptitud pero si no fuera demasiada molestia podrias ser mas especifico y/o enviar un ejemplo de como hacerlo.
Ademas quisiera mencionar que estoy manejando alrededor de 25 tablas todas con el mismo master password pero las estoy conectando con un TTable.
Gracias y salu2

[marcoszorrilla]

procedure TForm1.Button1Click(Sender: TObject);

begin

MiSesion.Active:=False;
DataBase1.Connected:=False;
MiSesion.RemoveAllPasswords;
MiSesion.AddPassword('PASA');
MiSesion.Active:=True;

Database1.Params.Clear;

Database1.Session.Name:='MiSesion';

Database1.Params.Add('PATH=D:\PRUEBAS');
Database1.Params.Add('DEFAULT DRIVER=PARADOX');
Database1.Params.Add('ENABLE BCD=FALSE');
Database1.Params.Add('USER NAME=MARCOS');
Database1.Params.Add('PASSWORD=PASA');
Database1.Params.Add('LoginPrompt=FALSE');

Database1.Connected:=True;

Table1.Open;

end;

PASA, sería la palabra de pasa de todas la tablas conectadas al mismo objeto TSession.

Un Saludo.