![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как проверить установлен ли 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]Необходимо посмотреть реестр на наличие соответсвующих записей.