Отследить завершение Excel книги.

[TEHb]

Всем привет! такая проблемка незнаю как отследить закрытие Excel книги.
Создаю OLE, открываю файл:

 try
    VExcel := GetActiveOleObject('Excel.Application')
  except
    on EOLESysError do
      VExcel := CreateOleObject('Excel.Application');
  end;
    VExcel.Visible := True;
    VExcel.WindowState := -4137;
    VExcel.DisplayAlerts := False;
    VExcel.WorkBooks.Open(Names);
    VExcel.WorkSheets[1].Activate;

а вот как определить закрытие WorkBooks?? помогите кто чем может!

[ArtGrek]

как вариант, в таимере проверяи открыто ли окно

[OlegVE]

Другой вариант. Проверяйте не закрыта ли книга прежде чем с ней работать.
Третий вариант. А если Вы перепрыгиваете из одного приложения другое и можете попутно закрыть книгу, то проверяйте её наличие по возвращению "домой".

[TEHb]

Сообщение от OlegVE

Другой вариант. Проверяйте не закрыта ли книга

вот это мне и надо. вопрос в том как это сделать по средствам OLE.
нужена функция проверки типа:
IF VExcel.WorkBooks.(функция определяющая наличие этой книги) then
....

есть ли какойто вариант проверки, типа на видимость? или размер?

[TEHb]

Всё придумал!!
While true do
begin
sleep(1000);
try
VExcel.WorkSheets[1];
except
////делаем нужные веши!
end;
end;

Всем спасибо!!

[ArtGrek]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  try
    VExcel.WorkSheets[1];
  except
    ////делаем нужные веши!
  end;
end;

[TEHb]

Сообщение от ArtGrek

TForm1.Timer1Timer

у меня нет формы.