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

Вниз

Как сделать, чтобы после закрытия приложения не закрывался Word?   Найти похожие ветки 

 
lovres ©   (2002-09-27 15:32) [0]

После закрытия приложения закрывается Word(я использую компоненты WordApplication & WordDocument). Перетыкал все св-ва - не помогает, помогите советом как решить эту проблемму?


 
qube ©   (2002-09-27 15:36) [1]

AutoQuit должно помогать, по идее


 
lovres ©   (2002-09-27 15:48) [2]

Пробовал и true и false - не помогло.
По идее должно быть просто, но как?


 
lovres ©   (2002-09-30 14:40) [3]

Подскажите, а?


 
lovres ©   (2002-10-06 16:46) [4]

ну, снизойдите


 
Ученик ©   (2002-10-06 17:20) [5]

>lovres © (27.09.02 15:32)
Тестовый пример не набросаешь ?


 
lovres ©   (2002-10-11 10:35) [6]

Тестовый пример:

procedure TITRP.SpeedButton4Click(Sender: TObject);
var
FileName,InvoiceTemplate:oleVariant;
Word1:variant;
begin
WordApplication1.Connect;
WordApplication1.Visible := true;
InvoiceTemplate := ExtractFilePath(Application.ExeName) + "отчёты\shablon.doc";
WordApplication1.Documents.Open(InvoiceTemplate,EmptyParam,EmptyParam,EmptyParam
,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordDocument1.ConnectKind:=ckAttachToInterface;
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);

WordGotoBookmark("zak1");
WordInsertText(nameuser);

WordGotoBookmark("zak2");
WordInsertText(usergroup);

WordGotoBookmark("zak3");
WordInsertText(nazvtemi);


WordGotoBookmark("zak5");
WordInsertText(datetimetostr(daykogda));

FileName:=GetCurrentDir+"\отчёты\"+nameuser+inttostr(nomertemi)+".doc";
WordDocument1.SaveAs(FileName);
end;


 
lovres ©   (2002-10-16 15:47) [7]

Что можете сказать?


 
TTCustomDelphiMaster ©   (2002-10-16 22:23) [8]

У меня не закрывается.


 
Delphist   (2002-10-16 23:14) [9]

>Как сделать, чтобы после закрытия приложения не закрывался Word?

Попробуй не закрывать свое приложение. Рано или поздно Ворд зависнет и вот тогда-то его хрен чем закроеш.



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

Текущий архив: 2002.10.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
14-92655
Cr@sh
2002-10-06 10:44
2002.10.28
Где можно найти хороший бесплатный форум?


1-92433
Администратор
2002-10-17 18:16
2002.10.28
Делимое!!!


4-92804
Velocity
2002-09-16 11:44
2002.10.28
Резиденты


3-92347
Sergant
2002-10-06 05:00
2002.10.28
Не могу создать/добавить индекс в Firebird!!!


3-92395
Shaman
2002-10-07 20:32
2002.10.28
Developer Express