Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

lovres © (2002-09-27 15:32:00)
После закрытия приложения закрывается Word(я использую компоненты WordApplication & WordDocument). Перетыкал все св-ва - не помогает, помогите советом как решить эту проблемму?

Delphist (2002-10-16 23:14:00) [1]
>Как сделать, чтобы после закрытия приложения не закрывался Word?

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

TTCustomDelphiMaster (2002-10-16 22:23:00) [2]
У меня не закрывается.

lovres (2002-10-16 15:47:00) [3]
Что можете сказать?

lovres (2002-10-11 10:35:00) [4]
Тестовый пример:

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;

Ученик (2002-10-06 17:20:00) [5]
>lovres © (27.09.02 15:32)
Тестовый пример не набросаешь ?

lovres (2002-10-06 16:46:00) [6]
ну, снизойдите

lovres (2002-09-30 14:40:00) [7]
Подскажите, а?

lovres (2002-09-27 15:48:00) [8]
Пробовал и true и false - не помогло.
По идее должно быть просто, но как?

qube (2002-09-27 15:36:00) [9]
AutoQuit должно помогать, по идее

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »