Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.30;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.024 c
1-1105981595
Никита
2005-01-17 20:06
2005.01.30
Как программно эмулировать: а) Щелчок мышью....


6-1099985680
lightix
2004-11-09 10:34
2005.01.30
TNMSMTP криво кодирует вложенные файлы?


1-1106072728
Magic_STI
2005-01-18 21:25
2005.01.30
Неодинаковое время выполнения. Почему?


9-1098186809
Wish
2004-10-19 15:53
2005.01.30
Подскажите где искать


1-1106005099
TGLDummyCube
2005-01-18 02:38
2005.01.30
Неразрешимая проблема из GLScene ? Сохранение float-значения