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; |
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 |
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:
|
Muchas gracias!
|
La franja horaria es GMT +2. Ahora son las 16:01:52. |
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