Ver Mensaje Individual
  #1  
Antiguo 19-12-2006
sagarmar sagarmar is offline
Miembro
 
Registrado: may 2006
Posts: 13
Reputación: 0
sagarmar Va por buen camino
Detectar Borland Database Engine

Hola mi problema es:
Tengo una aplicación que necesita tener instalado el BDE para poder ejecutarse. He probado con este código que pensaba que comprobaba si estaba instalado el BDE y sino lo instalaba pero si no encuentra la carpeta Borland falla. Cómo puedo solucionarlo? Gracias por vuestro tiempo!

var
reg:TRegistry;
begin
reg:=TRegistry.Create;
with reg do begin
try
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('\SOFTWARE\Borland\Database Engine', False) then begin
//ya tiene instalado el Borland
end
else begin
F_Instalar_BDE.ShowModal;
if F_Instalar_BDE.instalar_bde then
ShellExecute(0, 'open',PChar(path_exe+'\Borland Database Engine\setup.exe'), nil, nil, SW_SHOWNORMAL);
Close;
end;
finally
reg.Free;
end;
end;
Responder Con Cita