Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как проверить инсталлирован ли MS Word? 
:(
    Опции темы
Pakshin A. S.
Дата 10.11.2004, 20:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Код

uses 
  ..., Registry; 

function IsMicrosoftWordInstalled: Boolean; 
var 
  Reg: TRegistry; 
  S: string; 
begin 
  Reg := TRegistry.Create; 
  with Reg do 
  begin 
    RootKey := HKEY_CLASSES_ROOT; 
    Result := KeyExists('Word.Application'); 
    Free; 
  end; 
end; 



--------------------------------------------------------------------------------



Код

function MSWordIsInstalled: Boolean; 
begin 
  Result := AppIsInstalled('Word.Application'); 
end; 

function AppIsInstalled(strOLEObject: string): Boolean; 
var 
  ClassID: TCLSID; 
begin 
  Result := (CLSIDFromProgID(PWideChar(WideString(strOLEObject)), ClassID) = S_OK) 
end; 




--------------------------------------------------------------------------------


Как определить установлен ли на компьютере Word, запустить его и загрузить в него текст из программы?  

Пример:  

Код

var 
 MsWord: Variant; 
... 
try 
 // Если Word уже запущен 
 MsWord := GetActiveOleObject('Word.Application'); 
 // Взять ссылку на запущенный OLE объект 
 except 
  try 
  // Word не запущен, запустить 
  MsWord := CreateOleObject('Word.Application'); 
  // Создать ссылку на зарегистрированный OLE объект 
  MsWord.Visible := True; 
   except 
    ShowMessage('Не могу запустить Microsoft Word'); 
    Exit; 
   end; 
  end; 
 end; 
... 
MSWord.Documents.Add; // Создать новый документ 
MsWord.Selection.Font.Bold := True; // Установить жирный шрифт 
MsWord.Selection.Font.Size := 12; // установить 12 кегль 
MsWord.Selection.TypeText('Текст'); 

PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »


 




[ Время генерации скрипта: 0.0643 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.