Foros Club Delphi - Modificar LOCAL SHARE por código

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Modificar LOCAL SHARE por código (https://www.clubdelphi.com/foros/showthread.php?t=3667)

Modificar LOCAL SHARE por código

Resumo un poquito lo que uso:

- Uso Delphi 6

- tengo paradox en red, con Tsession configurado (creado por mi, no uso el que se crea por defecto)

Misession.ConfigMode := cmAll;

- alias que se crea con AddStandarAlias

- El BDE que uso es el que viene con Delphi 6 empresarial,

1.- ¿ como se configura el local share del BDE por código ?

2.- ¿ Según he leido en la cara oculta de delphi 4, LOCAL SHARE debe ser false en los clientes y true en el servidor, en Delphi 6 sigue siendo igual?

si pueden contestarme a una sola pregunta les estaré eternamente agradecido, si pueden a las dos... entonces no digamos... ;)

Gracias de antemano.

Prueba con esto:

Código:

Uses  Registry;



// Function sets the "LOCAL SHARE" registry setting

// to TRUE in the BDE (32-bit BDE only).

procedure UpdateLocalShare;

var

  Reg : TRegistry;

const

  BDE_LOCAL_SHARE_KEY = '\Software\Borland\Database Engine\Settings\SYSTEM\INIT';

begin

  Reg := TRegistry.Create;

  With Reg Do

    begin

      Access := KEY_READ or KEY_WRITE;

      RootKey := HKEY_LOCAL_MACHINE;



      { Write the BDE keys }

      OpenKey(BDE_LOCAL_SHARE_KEY, True);

      WriteString('LOCAL SHARE', 'TRUE');

    end;

  Reg.Free;

end;

Un Saludo.

Gracias MarcosZorrilla

Veo que de paso has contestado a las dos preguntas.

Cita:

.. in the BDE (32-bit BDE only).

Te recompensaré cuando me contraten en Microsoft :D