Версия BDE

Советы » BDE » Версия BDE

uses

BDE; {Without the Registry:} procedure

TForm1.Button1Click(Sender: TObject); var

ThisVersion: SYSVersion; begin

DbiGetSysVersion(ThisVersion); ShowMessage('BORLAND DATABASE ENGINE VERSION = ' + IntToStr(ThisVersion.iVersion)); end

; {With the Registry:} function

GetBDEVersion: string

; var

h: hwnd; ptr: Pointer; proc: TSYSVerProc; ver: SYSVersion; idapi: string

; reg: TRegistry; begin

try

reg.RootKey := HKEY_CLASSES_ROOT; reg.OpenKey('CLSID{FB99D710-18B9-11D0-A4CF-00A024C91936}InProcServer32', False

); idapi := reg.ReadString(''); reg.CloseKey; finally

reg.Free; end

; Result := '<BDE Bulunamadi>'; h := LoadLibrary(PChar(idapi)); if

h <> 0 then

try

ptr := GetProcAddress(h, 'DbiGetSysVersion'); if

ptr <> nil

then

begin

proc := ptr; Proc(Ver); Result := IntToStr(ver.iVersion); Insert('.', Result, 2); end

; finally

FreeLibrary(h); end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com