FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Dar Master Password a Paradox para que no lo haga el usuario
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 |
#2
|
||||
|
||||
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.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
||||
|
||||
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 |
#4
|
||||
|
||||
Código:
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; Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|