Главная страница
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.046 c
14-1090919658
WondeRu
2004-07-27 13:14
2004.08.22
VHS2DVD. Как?


1-1092039757
race1
2004-08-09 12:22
2004.08.22
строка в листе


6-1086379883
Николай
2004-06-05 00:11
2004.08.22
Хочу попробывать написать фаервол.


3-1091097877
Fynjy
2004-07-29 14:44
2004.08.22
Можно ли в DBGrid зафиксировать столбец?


11-1079715719
nester
2004-03-19 20:01
2004.08.22
Как убрать заголовки страниц в TabControl?