Проверить открыт ли документ Word

[a_n_n_a]

Здравствуйте, подскажите, как сделать проверку открыт ли конкретный документ Word ли нет.
Что-то типо, если документ Акт_осмотра_1 открыт, то мы него закрываем.

[Alexei91]

Если не забыл, то поищите инф-ю про функцию CreateOleObject (в Delphi) и почитайте про COM в Word (в справке Word описана вся модель).
P.S.
Конкретно не скажу, т.к. сейчас не исп-ю Delphi.

[spydark91]

можно проверіть по заголовку

[Aliens_wolfs]

Простенький пример
Можно попробовать следить за документом так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
h: HWND;
begin
//Ищем окно Winword
h:=FindWindow(nil, 'Акт_осмотра_1.doc - Microsoft Word');
Если окно найдено c текущим документом то закрываем Winword
if h<>0 then
SendMessage(h, WM_CLOSE, 0, 0);
end;

[a_n_n_a]

if h<>0 then

что-то он у меня на это условие не реагирует совсем.... если документ открыт, все равно h=0......

[Smitt&Wesson]

Файл Задачи C .doc
При открытии файла, формируется файл восстановления:
~$дачи С .doc
В воей проге, заменяете первые буквы названия файла на ~$ и делаете проверку.
Будет ли работать на других платформах и с другими версиями Офиса, не знаю, но с Офис 2003 прокатывает.

[a_n_n_a]

Файл Задачи C .doc
При открытии файла, формируется файл восстановления:
~$дачи С .doc
В воей проге, заменяете первые буквы названия файла на ~$ и делаете проверку.
Будет ли работать на других платформах и с другими версиями Офиса, не знаю, но с Офис 2003 прокатывает.

Что-то я ниче не поняла)))
А предыдущий код, мне понравился, все понятно, только не работает....(

Все, разобралась с кодом, только теперь другая проблема...
У меня имя файла формируется из нескольких Edit'ов, я пыталась засунуть это имя в переменную, а переменную уже в FindWindow... Но что-то не получается, подскажите, пожалуйста, как правильно сделать)

[Wicort]

У меня имя файла формируется из нескольких Edit'ов, я пыталась засунуть это имя в переменную, а переменную уже в FindWindow... Но что-то не получается, подскажите, пожалуйста, как правильно сделать)

Покажите, как Вы это делаете.

[Aliens_wolfs]

Попробуйте без разрешения .doc. Если документ только что с формирован и не сохранен то заголовок будет без разрешения.
Или посмотрите на заголовок открытого Winworda с вашим документом и впишите его.
пример:
h:=FindWindow(nil, 'Документ1 - Microsoft Word');

[Sibedir]

2 способа:
1 - с помощью компонента TWordApplication (закладка Servers)
2 - ч/з OleVariant

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, WordXP;

type
  TForm1 = class(TForm)
    WordApplication1: TWordApplication;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ComObj;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  ind: OleVariant;
begin
  ListBox1.Items.Clear;
  with WordApplication1 do
  try
    Connect;
    if Documents.Count = 0 then
      ListBox1.Items.Add ('Ни один документ не открыт')
    else
      for i := 1 to Documents.Count do begin
        ind := i;
        ListBox1.Items.Add (Documents.Item(ind).Name);
      end;
  except
    ListBox1.Items.Add ('Word не запущен')
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  WA: OleVariant;
begin
  ListBox1.Items.Clear;
  try
    WA := GetActiveOleObject('Word.Application');
    if WA.Documents.Count = 0 then
      ListBox1.Items.Add ('Ни один документ не открыт')
    else
      for i := 1 to WA.Documents.Count do
        ListBox1.Items.Add (WA.Documents.Item(i).Name);
  except
    ListBox1.Items.Add ('Word не запущен')
  end;
end;

end.

Ну, дальше сами

если документ Акт_осмотра_1 открыт, то мы него закрываем.

А что если документ открыт не Word'ом (еще есть нюанс, если на компе одновременно установленно несколько Word'ов (например 2003 и 2007)) или используется Portable-версия.