hola foristas una pregunta podrian aydarme a ratreas este codigo?
Código Delphi
[-]
procedure TdmRepDatos.ADOBDBeforeConnect(Sender: TObject);
var Coneccion: WideString; Programa: String;
begin
Programa := ChangeFileExt(ExtractFileName(Application.ExeName),'');
if not Assigned(WinReg) then winReg := TRegistry.Create;
WinReg.RootKey := HKEY_LOCAL_MACHINE;
if not WinReg.OpenKey('\Software\GrupoVRO\'+Programa, false) then
ShowMessage('No existe información de la Empresa. Llame al Administrador del Sistema para la Configuración.')
else begin
Coneccion := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog='+WinReg.ReadString('BaseDatos')+';Data Source='+WinReg.ReadString('Servidor');
ADOBD.ConnectionString := Coneccion;
end;
end;
desde ya muchas gracias