VPF::устанавливать MDAC через код - Форум программистов

Deiv

Дата 19.6.2007, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 11.2.2006
Где: ЛаПаc-Боливия (Ю жная Америка)

Репутация: нет
Всего: нет

Доброе утро,
Я работаю с Delphi7 и,
Как приступать через КОД следующие шаги?
1.- Как знать если MDAC установленно или нет в Машине? (CPU)
2.- Как знать какая версия MDAC в Машине? Как сравнить версию установленную с моей собственной версией что у меня есть?
3.- И как установят Программу MDAC через код?

Good morning,
I work with Delphi7 and,
How to proceed for CODE the following steps?
1.- How to know if it is installed or not the MDAC in a Machine? (CPU)
2.- How to know that version of MDAC? How to compare the version installed with my own version?
3.- and How to install the Program MDAC for code?

mutex

Дата 19.6.2007, 23:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 17.10.2004

Репутация: 2
Всего: 3

1. Проверить есть ли файл Program Files\Common Files\System\Ado\MSADO15.DLL; обычно он имеется.
2. Проверить версию этого файла.
3. Запустить Микрософтовский файл Mdac_typ.exe

Это сообщение отредактировал(а) mutex - 19.6.2007, 23:40

Deiv

Дата 27.6.2007, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Спасибо за ответ, но ясно, что те шаги. Mне нужно помощь в:

Цитата(deiv)

Как приступать через КОД

Например рекомендовали мне:

Код


with TRegistry.Create do
try
  RootKey := HKEY_LOCAL_MACHINE;
  if OpenKey('SOFTWARE\Microsoft\DataAccess', false) then MDACVersion := ReadString('FullInstallVer');
finally
  Free;
end;

Но, я не знаю это где разместить, и Как знать результат кода?

Цитата(mutex)

1. Проверить есть ли файл Программа Файлы\Общие Файлы\Система\Суматоха\MSADO15. DLL; обычно он имеется.
2. Проверить версию этого файла.
3. Запустить Микрософтовский файл Mdac_typ.exe

1. Как через КОД Delphi?
2. Как через КОД?
3. У меня есть programm MDAC 2.8 SP1, но как установят MDAC через код Delphi?

mutex

Дата 27.6.2007, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 17.10.2004

Репутация: 2
Всего: 3

program TestMdac;
{$APPTYPE CONSOLE}
uses SysUtils, Windows, ShellAPI, Registry;

var
  Mdac_typ, MDACVersion: string;
begin
  with TRegistry.Create(KEY_READ) do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('SOFTWARE\Microsoft\DataAccess', false) then
      MDACVersion := Copy(ReadString('FullInstallVer'), 1, 3)
    else
      MDACVersion := '';
  finally
    Free;
  end;
  if MDACVersion >= '2.8' then
    exit;
  Mdac_typ := ExtractFilePath(ParamStr(0)) + 'Mdac_typ.exe';
  if FileExists(Mdac_typ) then
    ShellExecute(0, 'open', PChar(Mdac_typ), nil, nil, 0)
  else begin
    writeln(Mdac_typ + ' - MDAC 2.8 not found');
    readln;
  end;
end.

Deiv

Дата 27.6.2007, 23:54 (ссылка)

(нет голосов)

Загрузка ...

Спасибо mutex,
Попробую код, и комментирую потом, хорошо?
Deiv

Deiv

Дата 28.6.2007, 15:18 (ссылка)

(нет голосов)

Загрузка ...

Спасибо mutex, код работает очень хорошо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »