| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Office и Delphi
Рома © (2005-01-18 19:14:00)Нужна такая программа: Несколько кнопок и по нажатии на них, чтоб запускались компоненты MS Office (Word например), но так чтобы на любом компьютере куда бы не перенесли программу все тоже работало! Заранее благодарен
GanibalLector (2005-01-19 02:30:00) [1]>А чем вам, shellexecute не угодил? Нафига вообще это связывание?
Действительно.А я LOL спорол ;)
YurikGL (2005-01-18 21:20:00) [2]А чем вам, shellexecute не угодил? Нафига вообще это связывание?
GanibalLector (2005-01-18 19:45:00) [3]
// uses ComObj,ActiveX;
var ClassID:TCLSID;
WordApp,Doc1:OleVariant;
begin
if CLSIDFromProgID('Excel.Application', ClassID)S_OK
then begin
messagedlg('Ñîçäàíèå äîêóìåíòà íåâîçìîæíî!!!'+#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;
Stilgar (2005-01-18 19:28:00) [4]То есть чтобы при переносе на компьютер, на котором не установлен MS Office, программа не вылетала с ошибкой, а просто лишалась дополнительной функциональности? Тогда надо использовать не раннее связывание, а позднее. Читать статьи на этом сайте и на http://delphikingdom.com.
Юрий Зотов (2005-01-18 19:19:00) [5]> Рома (18.01.05 19:14)
> чтобы на любом компьютере куда бы не перенесли программу все
> тоже работало!
Даже там, где не установлен MS Office?
| |
