Как проверить установлен ли WinWord

← →
Rb (2005-08-27 12:32) [0]

Добрый день мастера !!! Подскажите, можно ли проверить (узнать) установлен ли Ms Word на компьютере, если да скажите как. Спасибо.

← →
YurikGL © (2005-08-27 12:40) [1]

Необходимо посмотреть реестр на наличие соответсвующих записей.

← →
Big Joe © (2005-08-27 12:45) [2]

uses
Registry;

function IsWordInstalled: Boolean;
var
Reg: TRegistry;
s: string;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Result := Reg.KeyExists("Word.Application");
finally
Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsWordInstalled then
ShowMessage("MS Word установлен.");
end;

← →
Anatoly Podgoretsky © (2005-08-27 13:27) [3]

Big Joe © (27.08.05 12:45) [2]
Это не правильно. Это говорит только о СОМ серверах

← →
YurikGL © (2005-08-27 14:12) [4]

> Anatoly Podgoretsky © (27.08.05 13:27) [3]

А вы много знаете COM серверов "Word.Application" знаете?

:)

Anatoly Podgoretsky © (27.08.05 13:27) [3]
Дык... Во-первых, "Word.Application" таки один. А во-вторых, он-то товарисчу и нужен :-)
В кранем случае, можноещё проверить секцию "Software" на наличие "Microsoft\Microsoft Office" в HKEY_CURRENT_USER

YurikGL © (27.08.05 14:12) [4]
Хватит и одного, важно, что это не отвечает на вопрос, а позволяет делать только предположение, вопрос же не про предположение, а проверить (узнать) установлен ли Ms Word

Как проверить установлен ли WinWord Найти похожие ветки