Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
ВнизBDE Найти похожие ветки
← →
Shrek (2002-08-26 17:16) [0]Как проверить инстлировано ли BDE? С меня пиво.
← →
Skier (2002-08-26 17:18) [1]>Shrek
Реестр ?
← →
Shrek (2002-08-26 17:27) [2]
> Skier ©
Об этом я знаю, может существует болие простой способ который скажет что оно есть и работает. Я сталкивался с такой проблемой BDE есть но не работает!
← →
Skier (2002-08-26 17:28) [3]>Shrek
← →
Skier (2002-08-26 17:29) [4]>Shrek
> BDE есть но не работает!
Это может относится к любой программе : программа есть,
но не работает ! Или что ты имел ввиду ?
← →
Anatoly Podgoretsky (2002-08-26 17:30) [5]Var
SV : SysVersion;
..
If (dbiGetSysVersion(SV)<>DBIERR_None)
← →
Shrek (2002-08-26 20:58) [6]
> Anatoly Podgoretsky
Да есть такое, но модуль то какой SysVersion?
← →
Shrek (2002-08-26 21:00) [7]Сорри.
> Anatoly Podgoretsky
Это BDE.
← →
TRN (2002-08-26 23:45) [8]
unit mainform;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBITypes, StdCtrls, Registry;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function GetFileVersion(FileName : String) : String;
var
InfoSize : DWORD;
Len : Cardinal;
VerHandle : Cardinal;
InfoBuffer : PChar;
FileVerPtr : PChar;
begin
{ Retrieves the "file version" of the specified file. }
InfoSize := GetFileVersionInfoSize(LPSTR(FileName), VerHandle);
If (InfoSize > 0) Then
begin
InfoBuffer := StrAlloc(InfoSize);
GetFileVersionInfo(LPSTR(FileName), VerHandle, InfoSize, InfoBuffer);
VerQueryValue(InfoBuffer, "\StringFileInfo\040904E4\FileVersion", Pointer(FileVerPtr), Len);
Result := StrPas(FileVerPtr);
StrDispose(InfoBuffer);
end
Else
Result := EmptyStr;
end;
function GetCurrentBDEPath : String;
var
Reg : TRegistry;
const
BDE_KEY = "\Software\Borland\Database Engine";
begin
Screen.Cursor := crHourglass;
Result := EmptyStr;
Reg := TRegistry.Create;
With Reg Do
begin
Access := KEY_QUERY_VALUE;
RootKey := HKEY_LOCAL_MACHINE;
If (KeyExists(BDE_KEY)) Then
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(BDE_KEY, False);
Result := ReadString("DLLPATH");
If (Result <> EmptyStr) Then Result := Result + "\idapi32.dll";
end;
end;
Screen.Cursor := crDefault;
end;
procedure GetBDEVersionInfo(var BDEVersion, BDELevel, BDEDate, BDETime, IDAPIVersion, IDAPIPath : String);
var
SysVer : DBITypes.SYSVersion;
D, M : Word;
Y : SmallInt;
H, N, S : Word;
begin
IDAPIPath := GetCurrentBDEPath;
If (Trim(IDAPIPath) <> EmptyStr)
Then IDAPIVersion := GetFileVersion(IDAPIPath)
else
begin
IdapiVersion:="Not installed";
IDAPIPath:="Not installed";
Exit;
end;
DbiGetSysVersion(SysVer);
DbiDateDecode(SysVer.dateVer, M, D, Y);
DbiTimeDecode(SysVer.timeVer, H, N, S);
BDEVersion := IntToStr(SysVer.iVersion);
BDELevel := IntToStr(SysVer.iIntfLevel);
BDEDate := FormatDateTime("mm/dd/yy", EncodeDate(Y, M, D));
BDETime := TimeToStr(EncodeTime(H, N, S Div 1000, S Div 1000));
end;
procedure TForm1.FormCreate(Sender: TObject);
var
BDEVersion, BDELevel, BDEDate, BDETime, IDAPIVersion, IDAPIPath : String;
begin
GetBDEVersionInfo(BDEVersion, BDELevel, BDEDate, BDETime, IDAPIVersion, IDAPIPath);
Edit1.Text := IDAPIVersion;
Edit2.Text := IDAPIPath;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
end.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c