Autor Beitrag
Indeterminatus
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 47



BeitragVerfasst: Do 19.09.02 13:56 
Hallo!

Gibt es irgendeine Möglichkeit, die Installation der BDE zu überprüfen? Ein Anwendungsbeispiel wäre beim Programmstart abzufragen, ob die BDE installiert wurde.
Wenn ja, wird das Programm gestartet, wenn nein, wird der Installationsvorgang der BDE gestartet ...

Indeterminatus.

_________________
_______________________________________
Indeterminatus

---=si tacuisses, philosophus mansisses=---
LCS
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1305
Erhaltene Danke: 1

WIN 7, WIN 8
Delphi XE5, Delphi XE, Delphi 2007
BeitragVerfasst: Do 19.09.02 13:59 
Hi
ich denke die simpelste Möglichkeit wäre in der Registry zu kontrollieren ob der Schlüssel:
"HKEY_LOCAL_MACHINE\Software\Borland\Database Engine" vorhanden ist.

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...
wwerner
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 185



BeitragVerfasst: Do 19.09.02 14:14 
Laut Borland lizenz gibt es keinen installationsvorgang für die BDE. es gibt nur einen für dein programm mit bde. und das muß mit einem liz. installer erfolgen!

_________________
Gruß

Wolfgang

----------
zu hause ist es doch am schönsten
ao
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 145

Win XP Prof.
D7 Ent.
BeitragVerfasst: Do 19.09.02 14:50 
Hi Indeterminatus,

ich habe früher immer so geprüft, ob eine BDE mit Native-Standard-Treiber für Paradox usw. installiert war. Vielleicht hilft 's dir.

ausblenden Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
function BdeExists:Boolean;
var
  List: TStringList;
begin
  List.Create;
  Result := True;
  try
    Session.GetDriverNames(List.Strings);
  except
     Result := False;
  end;
  if List.IndexOf('STANDARD') = -1 then Result := False;
  List.Free;
end;

Gruß
Andreas
Indeterminatus Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 47



BeitragVerfasst: Do 19.09.02 17:42 
Danke für die schnellen Antworten! Ihr habt mir sehr geholfen!

_________________
_______________________________________
Indeterminatus

---=si tacuisses, philosophus mansisses=---