Нерегулярная ошибка при автозагрузке программы: "Cannot create system shell noti

[Sasha]

При автостарте моей программы вылетает иногда ошибка такого плана Cannot create system shell notification icon пытаюсь решить эту пролему таким образом

Код

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 TrayIcon1->Visible = false;
}
//---------------------------------------------------------------------------
LRESULT CALLBACK WndProc(HWND hWnd, UINT uMessage, WPARAM wParam, LPARAM lParam)
{
 static UINT s_uTaskbarRestart;
 
 switch(uMessage)
  {
    case WM_CREATE:
    s_uTaskbarRestart = RegisterWindowMessage(TEXT("TaskbarCreated"));
    break;
    default:
 
  if(uMessage == s_uTaskbarRestart)
   {
     Form1->TrayIcon1->Visible = true;
   }
  }
return DefWindowProc(hWnd, uMessage, wParam, lParam);
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 WindowProc = WndProc;
 Form1->Visible = false;
 TrayIcon1->Visible = true;
}
//---------------------------------------------------------------------------
 

Правильно ли я отслеживаю сообщение TaskbarCreated?

[xelablin]

Судя по всему, программа при автозагрузке иногда стартует раньше, чем загружается Explorer.
Каким методом выполняется автозагрузка?

[SilverFish]

По таймеру проверить или загрузился Explorer.exe и только после этого добавлять иконку в трей.
Подробности в этой книге: Ч. Калверт, К. Рейсдорф. Borland C++ Builder. Энциклопедия программиста. Platinum Edition страница 237.
Скачать книгу можно здесь: http://biblioteka.cc/index.php?newsid=42774

[Sasha]

Спасибо почитаю