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

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

Как грамотно проверить наличие Word а на компьтере? [D6, Win95/98, WinME, Win2k, WinXP]


DiGiTaL ©   (2002-10-24 10:59:00) 

Как грамотно проверить наличие Word"а на компьтере?
Я сделал CreateObject и написал глобальный обработчик ошибок, в надежде перехватывать EOLESysError. Но при возникновении ошибки, обработчик почему-то не запускается. :( Вообщем что-то я запутался..


asmith   (2002-10-24 13:13:00) [1]

Мы делаем таким образом запуск MS Word-а и все работает:

const
OleClassName = "word.application.8";
var
oWordApplication : OleVariant;
bSucces : boolean;
begin
try
bSucces := False;
try
oWordApplication := GetActiveOleObject(OleClassName);
bSucces := True;
except
end;
if not bSucces then
try
oWordApplication := CreateOleObject(OleClassName);
bSucces := True;
except
raise;
end;


Song   (2002-10-24 11:06:00) [2]

FindExecutable() попробуйте


Наверх

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