Вопрос про Word

← →
Miralex (2003-08-26 12:50) [0]

Уважаемые мастера подскажите мне как на Delphi проверить запущен ли Word и если нет - то запустить его.

← →
Skier (2003-08-26 12:54) [1]

GetActiveOleObject(...) ?

← →
h@1f-e1f (2003-08-26 12:56) [2]

FindWindow(...)?

← →
Miralex (2003-08-26 13:04) [3]

Так в том то и дело!
Я пишу:

var MSWord: Variant;

begin

try
MsWord := GetActiveOleObject("Word.Application");
except
try
MsWord := CreateOleObject("Word.Application");
MsWord.Visible := True;
except
Exception.Create("Error");
end;
end;

end;

И если ворд запущен то все ок!... если нет - то вылетаю с ошибкой!

← →
Skier (2003-08-26 13:08) [4]

function WordIsRunning : Boolean;
var
MSWord : Variant;
begin
try
MsWord := GetActiveOleObject("Word.Application");
Result := True;
except
Result := False;
end; //try
end;

← →
Miralex (2003-08-26 13:18) [5]

Спасибо!
Все работает!
Вот тока мне интересно что в моем примере неправильно!

← →
Skier (2003-08-26 13:20) [6]

>Miralex © (26.08.03 13:18)

> Вот тока мне интересно что в моем примере неправильно!

-Неправильно рабораешь с блоком try-except-end
-Exception.Create("Error"); здесь лишнее

← →
Doctor Deejay (2003-08-26 15:15) [7]

> -Exception.Create("Error"); здесь лишнее

Вместо него можно написать showMessage("Ворд не запущен");

Вопрос про Word Найти похожие ветки