Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Detectar Borland Database Engine (https://www.clubdelphi.com/foros/showthread.php?t=38558)

sagarmar 19-12-2006 11:05:24

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;

lgarcia 19-12-2006 17:36:38

Detectar BDE
 
Hola:

Me parece que otra alternativa pudiera ser ver si el fichero existe ya que el se instala normalmente en C:\Archivos de programa\Archivos comunes\Borland Shared\BDE y dado que exista entonces ejecutar lo que planteaste.

Saludos
Luis Garcia

luisgutierrezb 19-12-2006 21:36:20

en swissdelphicenter encontre un tip para saber si el bde esta instalado, yo no uso bde y no lo eh probado, sin embargo aqui esta el tip:

Código Delphi [-]
uses
  BDE;

function CheckBDEInstalled: Boolean;
begin
  Result := (dbiInit(nil) = DBIERR_NONE)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CheckBDEInstalled then
    ShowMessage('BDE is installed.')
  else
    ShowMessage('BDE is not installed.')
end;

sagarmar 20-12-2006 12:27:58

Muchas gracias!


La franja horaria es GMT +2. Ahora son las 14:21:27.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi