Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.032 c
1-1091773540
MaXsIm
2004-08-06 10:25
2004.08.22
Добавить в начало текстового файла


1-1091729194
Hyperspeed
2004-08-05 22:06
2004.08.22
Как сделать поиск и данных и файле типа параметр:значение...


4-1089359467
Thick
2004-07-09 11:51
2004.08.22
Отслеживание модулей


14-1091608699
Klerk
2004-08-04 12:38
2004.08.22
Слетели шрифты в WordXP


3-1091199727
pashtet
2004-07-30 19:02
2004.08.22
Что лучше Interbase FB Yaffil или PostgreSQL Ingres?