Скачать: CL | DM;

Вопрос про 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("Ворд не запущен");

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.983 c