Witam!
Ostatnio dostałem kilka maili z pytaniem jak zainstalować sterowniki Borland Database Engine z poziomu Delphi. Od razu piszę, że jest to niezgodne z licencją, jeżeli nie instalujemy ich z poziomu programów InstallShield lub Wise, jednak są to programy komercyjne i drogie...
Do instalacji będą potrzebne dwa pliki:
- regsvr32.exe (jest on w C:\Windows\System32),
- BdeInst.dll (C:\Program Files\Common Files\Borland Shared a jeśli go tam nie ma to ściągnij z www.google.pl)
Plik BdeInst.dll od razu skopiuj do folderu z Twoim programem, gdzie znajduje się plik moj_program.exe.
Kod źródłowy:
Uses
BDE, Shellapi;
function BDEInstalled: Boolean;
begin
Result := (dbiInit(nil) = 0)
end;
//w zdarzeniu OnShow Formy (zakładka Events)
procedure TForm1.FormShow(Sender: TObject);
var
s, p: string;
result: integer;
begin
if not BDEInstalled then
begin
if MessageDlg('BDE nie jest zainstalowane. Zainstalować BDE teraz?',
mtCustom, [mbYes, mbNo], 0) = mrYes then
begin
s := 'regsvr32.exe';
p := ExtractFilePath(Application.ExeName);
result := ShellExecute(Handle, 'open', pchar(s), '/S bdeinst.dll', PCHAR(p), SW_SHOW);
if result < 33 then
showmessage('Błąd! Przeinstaluj BDE.')
end;
end;
end;
Przy uruchomieniu Twojego programu wyskoczy okienko dialogowe z zapytaniem o zainstalowanie BDE. Oczywiście stanie się to, gdy powyższy kod rozpozna brak sterowników BDE w systemie. Po zainstalowaniu ich, uruchom swój program na nowo i będzie już wszystko dobrze.
Okno dialogowe będzie posiadało tytuł Twojej aplikacji (mtCustom), ale nie będzie posiadało ikonki.
Inne stałe w oknie dialogowym i ich znaczenie:
mtWarning - Ikona: trójkąt ostrzegawczy z wykrzyknikiem
mtInformation - Ikona: mała litera i w "dymku"
mtConfirmation - Ikona: znak zapytania (?) w "dymku"
mtError - Ikona: znak stopu
Umieściłem ten kod tutaj na forum, bo tu jest większy ruch niż w artykułach. :) Strzałka. [browar]