如何让程序一启动就隐藏到托盘？

[iceflowergg]

我加了个trayicon控件，点窗体上的那个最小化按钮后是可以隐藏到托盘了。可我想程序一启动就隐藏，不要人工干预。谢谢。

[iceflowergg]

Form的OnCreate时用 WindowState = wsMinimized; 只能最小化到任务栏

[iceflowergg]

Form的OnCreate时用 WindowState = wsMinimized; 只能最小化到任务栏

[iceflowergg]

我用HWND hwnd=::FindWindow(NULL,"title");
if(hwnd)
{
ShowWindow(hwnd,SW_MINIMIZE);
SendMessage(hwnd,WM_SYSCOMMAND,SC_MINIMIZE,0); //add your code;
}

托盘上是看到图标了，可任务条上也还存在。

[周药师]

//方法一：
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   TrayIcon1->Visible = true ;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   ShowWindow(Application->Handle,SW_HIDE);
   Application->ShowMainForm=false;
   TrayIcon1->Minimize();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TrayIcon1Restore(TObject *Sender)
{
   ShowWindow(Application->Handle,SW_SHOW);
   Application->ShowMainForm=true;
   Form1->Visible   =   true;
}

[周药师]

//方法二
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->ShowMainForm   =   false   ;//增加
                   Application->Run();
        }
//---------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    Form1->TrayIcon1->Visible = true ;
    TrayIcon1->PopupMenu = PopupMenu1 ;
    TrayIcon1->PopupMenuOn = imRightClickUp;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
   TrayIcon1->Restore();
   Application->ShowMainForm = true;
   WindowState=wsNormal ;
   Form1->Visible   =   true;

}