Отлов "повисания"

[Teksa]

Здравствуйте, ворд виснет на открытии документа, (т.е. сообщений об ошибках и прочего нету(( ) открывал этот документ вручную - вывалилось сообщение о восстановлении документа после серьезной ошибки... сдается мне что оно и в прошлый раз вываливалось.. вот как бы сделать так что процедурка кусок кода которой ниже приведен завершалась в случае долгого молчания ворда... ну или еще как нибудь парировать эту неприятность...

WordApplication1.Documents.Open(patch,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
WordApplication1.ChangeFileOpenDirectory(copy(paramstr(0),0,length(paramstr(0))-12)+'temp\');
 filename:= ExtractFileName(s_patch)+'.txt';
WordApplication1.ActiveDocument.SaveAs(FileName, FormatText, no, nothing, yes, nothing,no,
                                       no,no,no,no,cp1251,no,no,CRLF,no);


WordApplication1.Documents.Close(no,no,no);
wordapplication1.Visible:=false;

ЗЫ на начало процедуры wordapplication1.Visible так же false но при WordApplication1.Documents.Close(no ,no,no); упорно пытается проявится, поэтом повторяю

[viter.alex]

Думаю, что никак. Открытие документа происходит синхронно с кодом программы. Пока не откроется, другие строки не будут выполняться. Как я понял, это Delphi. Может стоит попробовать открывать документ в отдельном потоке? И следить за потоком? Только как это делать я не знаю

[Teksa]

мда( с реализацией надолго закопаюсь, а проект и так уже осточертел... чего нибудь попроще бы....

[Teksa]

ну собственно выкрутился из ситуевины таким образом: отловить неудается (либо слишком сложно, не стоит оно того),поэтому родил таймер который через н секунд после того как пошел этот кусок кода делает ворд видимым, в целом проблему решает - в случае если нужен тырк мышкой по вордовскому диалогу - самое оно.