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

[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.