//--------------------------------------------------------------------
#include <vcl.h>
#include <shellapi.h>
#include <graphics.hpp>
#include "Unit1.h"
#pragma hdrstop
#pragma argsused
//-------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
//Начальные установки
 TImage *Image1=new TImage(NULL);
 NOTIFYICONDATA tnd;
 PSTR pszTip;
 AnsiString MessageText="Формирование черно-белых списков \r\nпо услуге \"Интернет в кредит\"";
 AnsiString path;
 int pos;

 pszTip = MessageText.c_str();

 Application->Initialize();
 Application->ShowMainForm=false; //it is analog of: ShowWindow(Application->Handle,SW_HIDE);
//Если сделать Application->Minimize(), то появляется кнопка на панели 
//задач, а нам это не надо...
//Path to user-defined icon file. Application haven't default icon because
//it is coverted from Console Application and haven't main form...
 path=Application->ExeName;
 pos=path.LastDelimiter("\\");
 path=path.SubString( 1 ,pos);
 path+="FLGRUS.ICO";

//Load icon file...
 if(FileExists(path))
   Image1->Picture->Icon->LoadFromFile(path);
 else
   Image1->Picture->Icon->Handle=NULL;

//Show icon within Tray...
 tnd.cbSize          = sizeof(NOTIFYICONDATA);
 tnd.hWnd            = Application->Handle ;
 tnd.uFlags          = NIF_MESSAGE | NIF_ICON | NIF_TIP;
 tnd.hIcon           = Image1->Picture->Icon->Handle ;
 lstrcpyn(tnd.szTip, pszTip, sizeof(tnd.szTip));
 Shell_NotifyIcon(NIM_ADD,&tnd);
 Shell_NotifyIcon(NIM_MODIFY,&tnd);

 < здесь остальной код моей программы >

//Delete icon form Tray...
 Application->Terminate();
 tnd.hIcon = NULL ;
 Shell_NotifyIcon(NIM_DELETE,&tnd);
 return false;// The main form will NOT BE displayed in any cases...
}
//--------------------------------------------------------------------