[[egostar]]

Empezado por David

Me dice , que añada el programa Minireg.exe , pero claro no me explica , lo que he dicho yo , de instalar si esta o no esta el BDE .

Para complementar este tema y evitar que se instale de nuevo el BDE si ya existe, modifique el programa MiniReg de Jordan Russell agregando lo siguiente:

Código Delphi [-]
 
{ MiniReg v1.0 by Jordan Russell
  Note: For Delphi 3+, you'll need to change "OLE2" below to "ActiveX". }
uses
  Windows, ActiveX,BDE; // BDE para usar la función dbiInit
 
var
  BDECheck : Bool;
 
{x$R *.RES}
 
.......
.......
 
begin
  if ParamCount <> 1 then
     Exit;
  BDECheck := (dbiInit(nil) = 0);  //Aqui verifico si existe BDE, 
                                            //Esta idea la tomé de Trucomanía
  If BDECheck = false then begin  //Actúo en consecuencia
     CoInitialize (nil);
     try
       RegisterServer (ParamStr(1));
     finally
       CoUninitialize;
     end;
  end;
end;

Saludos.