Modificar LOCAL SHARE por código

[[Lepe]]

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.

[marcoszorrilla]

Prueba con esto:

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.

[[Lepe]]

Gracias MarcosZorrilla

Veo que de paso has contestado a las dos preguntas.

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

Te recompensaré cuando me contraten en Microsoft