Текущий архив: 2004.08.22;
Скачать: CL | DM;
Вниз
Открыт ли 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 объявлен глобально, так что, не в этом дело.
← →
Profi © (2004-08-09 16:22) [4]Если ошибка при компиляции, то не беда! Попробуй запустить exe"шник.
← →
KSergey © (2004-08-09 16:25) [5]> [4] Profi © (09.08.04 16:22)
> Если ошибка при компиляции, то не беда! Попробуй запустить
> exe"шник.
Если ошибка при компиляции - о каком exe"шнике может быть речь? ;))
Скорее исключение при запуске из под отладчика - решается крыжиком IDE останавливаться на исключениях или только не необработанных (назвать название - не возьмусь, лень)
Страницы: 1 вся ветка
Текущий архив: 2004.08.22;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.031 c
