Developing.ru

Код: Выделить всё

Uses Windows, ..., oleobj;
...
var
Word:Variant;
..
implementation
...

procedure TForm1.Button1Click(Sender: TObject);
begin
     Word:=CreateOleObject('Word.Application');  //Установить связь

    Word:=Dogovor.Documents.Open('C:\MyDoc.doc'); //Открыть документ
    
    If vartype(Word)=varDispatch then  
       Word.visible:=true;                  //Показать окно Word

    If vartype(Word)=varDispatch then
       begin                                            //Разорвать связь
            Word.Displayalerts:=false;
            Word:=Unassigned;
       end;

end;