Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

Office и Delphi   Найти похожие ветки 

← →
Рома   (2005-01-18 19:14) [0]

Нужна такая программа: Несколько кнопок и по нажатии на них, чтоб запускались компоненты MS Office (Word например), но так чтобы на любом компьютере куда бы не перенесли программу все тоже работало! Заранее благодарен

---

← →
Юрий Зотов ©   (2005-01-18 19:19) [1]

> Рома   (18.01.05 19:14)  

> чтобы на любом компьютере куда бы не перенесли программу все
> тоже работало!

Даже там, где не установлен MS Office?

---

← →
Stilgar ©   (2005-01-18 19:28) [2]

То есть чтобы при переносе на компьютер, на котором не установлен MS Office, программа не вылетала с ошибкой, а просто лишалась дополнительной функциональности? Тогда надо использовать не раннее связывание, а позднее. Читать статьи на этом сайте и на http://delphikingdom.com.

---

← →
GanibalLector ©   (2005-01-18 19:45) [3]


// uses ComObj,ActiveX;
var ClassID:TCLSID;
   WordApp,Doc1:OleVariant;
begin
if  CLSIDFromProgID("Excel.Application", ClassID)<>S_OK
then begin
messagedlg("&#209;&#238;&#231;&#228;&#224;&#237;&#232;&#229; &#228;&#238;&#234;&#243;&#236;&#229;&#237;&#242;&#224; &#237;&#229;&#226;&#238;&#231;&#236;&#238;&#230;&#237;&#238;!!!"+#10#13+
"   Не установлен Word Application",mterror,[mbok],0);exit;
end;
WordApp := CreateOleObject("Word.Application");
WordApp.Documents.add;
WordApp.visible:=true;
Doc1:=WordApp.ActiveDocument;
// тут заполняем и работаем с Word-ом программно
if not VarIsEmpty(Doc1)         then Doc1:=Unassigned;
if not VarIsEmpty(WordApp)      then WordApp:=Unassigned;
end;


---

← →
YurikGL ©   (2005-01-18 21:20) [4]

А чем вам, shellexecute не угодил? Нафига вообще это связывание?

---

← →
GanibalLector ©   (2005-01-19 02:30) [5]

>А чем вам, shellexecute не угодил? Нафига вообще это связывание?
Действительно.А я LOL спорол ;)

---

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

Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c