Открыт ли Word

← →
Pavelkq (2004-08-09 15:08) [0]

Здравствуйте! Хочу, чтобы при закрытии моей программы она проверяла не запущен ли MS Word. Если запущен, то закрыть его.
Пишу следующее:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin try WordApp:=GetActiveOleObject("Word.Application"); except end; if FindWindow(PChar("OpusApp"), nil)>0 then WordApp.Quit; end;
Но если он не запущен, то у меня появляется сообщение об ошибке "Операция недоступна". После нажатия на ОК программа успешно завершается.
Как избавиться от сообщения?

← →
ssk © (2004-08-09 15:10) [1]

перепиши так:

try
WordApp:=GetActiveOleObject("Word.Application");
if FindWindow(PChar("OpusApp"), nil)>0 then WordApp.Quit;
except
end;

← →
Pavelkq (2004-08-09 15:29) [2]

Все одно не получилось. Ошибка возникает на строке WordApp:=GetActiveOleObject("Word.Application");

← →
Pavelkq (2004-08-09 15:48) [3]

WordApp объявлен глобально, так что, не в этом дело.

Если ошибка при компиляции, то не беда! Попробуй запустить exe"шник.

> [4] Profi © (09.08.04 16:22)
> Если ошибка при компиляции, то не беда! Попробуй запустить
> exe"шник.

Если ошибка при компиляции - о каком exe"шнике может быть речь? ;))
Скорее исключение при запуске из под отладчика - решается крыжиком IDE останавливаться на исключениях или только не необработанных (назвать название - не возьмусь, лень)

Открыт ли Word Найти похожие ветки