Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как проверить установлен ли WinWord [D7, WinXP]


Rb ©   (2005-08-27 12:32:00) 

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


Anatoly Podgoretsky   (2005-08-27 15:36:00) [1]

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


Marser   (2005-08-27 14:18:00) [2]

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


YurikGL   (2005-08-27 14:12:00) [3]


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

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

:)


Anatoly Podgoretsky   (2005-08-27 13:27:00) [4]

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


Big Joe   (2005-08-27 12:45:00) [5]

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;


YurikGL   (2005-08-27 12:40:00) [6]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо