CDS_DM.pas

unit CDS_DM;

interface

uses
  SysUtils, Windows, Classes, ShellApi, Dialogs, DB, DBClient, OleServer, WordXP, OutlookXP, Variants;

type
  TOtherDataAccessDM = class(TDataModule)
    SearchTypeCDS: TClientDataSet;
    SearchTypeDataSource: TDataSource;
    AnnonceWordApplication: TWordApplication;
    AnnonceSquareFrWordDocument: TWordDocument;
    AnnonceSimpleWordDocument: TWordDocument;
    procedure DataModuleCreate(Sender: TObject);
    procedure ActivateWordServers;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OtherDataAccessDM: TOtherDataAccessDM;

implementation

{$R *.dfm}

uses MainForm;

procedure TOtherDataAccessDM.ActivateWordServers;
var FN, EP, Replace, ShapeIndex: OleVariant;
    SaveChanges: OleVariant;
    DocItem: OleVariant;
begin
try
  SaveChanges:=False;
  DocItem:=1;

  try
    CopyFile(PChar(GetCurrentDir+'\DOC\reserve_docs\AnnonceTemplatePictSqareFrameWhiteBackGrnd.doc'),PChar(GetCurrentDir+'\DOC\AnnonceTemplatePictSqareFrameWhiteBackGrnd.doc'),False);
    CopyFile(PChar(GetCurrentDir+'\DOC\reserve_docs\AnnonceTemplateSimple.doc'),PChar(GetCurrentDir+'\DOC\AnnonceTemplateSimple.doc'),False);
  except
    ShowMessage('Íåóäà÷íàÿ ñèíõðîíèçàöèÿ îòíîñèòåëüíî ðåçåðâíûõ ôàéëîâ doc-øàáëîíîâ!');
  end;

  if OtherDataAccessDM.AnnonceWordApplication.Documents.Count>0 then
    begin
      ShowMessage('Ïðèëîæåíèå Word ñîäåðæèò îòêðûòûå äîêóìåíòû, çàêðîéòå èõ ñàìè äî íàæàòèÿ êíîïêè, èíà÷å ñèñòåìà çàêðîåò èõ áåç ñîõðàíåíèÿ èçìåíåíèé!');

      if OtherDataAccessDM.AnnonceWordApplication.Documents.Count>0 then
        ShowMessage('Íåñîõðàí¸ííûå äàííûå áóäóò ïîòåðÿíû!');

      while OtherDataAccessDM.AnnonceWordApplication.Documents.Count>0 do
        OtherDataAccessDM.AnnonceWordApplication.Documents.Item(DocItem).Close(SaveChanges, EmptyParam, EmptyParam);

    ShowMessage('Ïåðåçàïóñòèòå ïðèëîæåíèå!');
    FirstForm.Close;
    Exit;
  end;

  FN:=CDP+'\DOC\AnnonceTemplateSimple.doc';
  AnnonceWordApplication.Documents.Open(FN,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  AnnonceSimpleWordDocument.ConnectTo(AnnonceWordApplication.ActiveDocument);
  FN:=CDP+'\DOC\AnnonceTemplatePictSqareFrameWhiteBackGrnd.doc';
  AnnonceWordApplication.Documents.Open(FN,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  AnnonceSquareFrWordDocument.ConnectTo(AnnonceWordApplication.ActiveDocument);
except
  ShowMessage('Çàêðîéòå âñå ïðèëîæåíèÿ è ïðîöåññû MS Word, èíà÷å ïðèëîæåíèå áóäåò íåðàáîòîñïîñîáíî!');
  FirstForm.Close;
end;
end;

procedure TOtherDataAccessDM.DataModuleCreate(Sender: TObject);
begin
  ActivateWordServers;
end;

end.