Закрывается поток

[KIG]

Добрый день!

В программе создаю вспомогательный поток для обработки информации следующим образом:

DataProcess1=new dataprocessing(false);

Поток работает 15-17 часов и закрывается. Мне необходимо установить причину закрытия потока. Для этого сделал следующее:

1) Установил в функции Execute try{} catch. Подскажите, пожалуйста, возможно ли текст Исключения записывать в файл? Если да, то как это сделать?

  
 void __fastcall dataprocessing::Execute()
{
  try
   {
   do
   {
    ......
         Sleep(5);
   }
   while (!Terminated);
  }
 catch (Exception &EE)
  {
   Application->ShowException(&EE);
  }
}

2) В функции обработки события OnTerminate хочется получить DataProcess1->FatalException в виде текста исключения и записать его в файл. Подскажите, пожалуйста, как это сделать? (Как преобразовать FatalExeption в переменную для записи в файл)

3) Так же по таймеру пытаюсь вызвать функцию GetExitCodeThread().

 
DWord ExCode;
if( GetExitCodeThread(HTh1,&ExCode))
 if(ExCode!=STILL_ACTIVE)
   File1<<IntToStr(ExCode).c_str();

HTh1 получаю так:

 
_fastcall dataprocessing::dataprocessing(bool CreateSuspended)
   : TThread(CreateSuspended)
{
 Form1->HTh1=GetCurrentThread();
}

При этом по таймеру получаю, что даже после закрытия потока ExCode равен STILL_ACTIVE. Что я делаю неправильно? Подскажите, пожалуйста, где можно получить список значений ExCode с описанием их значений?

Заранее спасибо!

[FataLL]

1) Лучше бы отлавливать исключения внутри do...while. Можно даже несколько блоков вставить. Так и поток может не завершаться, и количество отловленных исключений может быть достаточным для анализа.
2) У потока есть Handle. По-моему, лучше его использовать. GetCurrentThread возвращает хэндл главного VCL-потока [правда, могу ошибаться].
3) Запись в файл

#include<fstream>
...
try
{
...
}
catch(Exception& e)
{
ofstream f("somefile.txt"); 
f << e.Message.c_str << endl; 
f.close();
}

Правда, здесь будет только последнее исключение записано. Можно передвигать указатель всё время на конец файла.

[KIG]

Спасибо!
Еще вопросы
1) при отображении времени на форме (в событии OnTimer вывожу в лейбл время раз в секунду) строчка моргает (т.е. пропадает время и затем появляется). Как будто вывод притормаживает. Возможно ли выводить время без задержек, чтобы глазу не видно было моргания?

2) Вывожу информацию в Excel.

   ExcelOtchet=CreateOleObject("Excel.Application");
    if(!ExcelOtchet.IsNull())
     {Открываю книгу, копирую в другую и открытую закрываю
          }
        ExcelOtchet.Clear();
   ExcelOtchet=Unassigned;

При этом при отладке в Buildere вижу, что при этом создаются потоки, которые закрываются не сразу. Можно ли их сразу закрывать после команд Clear() и Unassigned.