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 :D