如何让程序启动时直接缩小到托盘区？？

[zhgwbzhd]

我的程序是一个service程序。

在服务启动时，
Form1 = new TForm1(NULL);
Form1->Show();

在Form1内有TrayIcon1控件。


我目前只能在计算机启动之后。单击一个键来实现缩到托盘区。

我想让计算机启动时，自动缩到托盘区。该怎么搞呢？？？

谢谢啊！

[jaffy]

Application->Minimize();

[jaffy]

project1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", frmMain);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TfrmMain), &frmMain);
Application->ShowMainForm=false;
Application->Run();

...

unit1.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
TfrmMain *frmMain;
//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::IconTray(TMessage &Msg)
{
if(Msg.LParam==WM_LBUTTONUP || Msg.LParam==WM_RBUTTONUP)
DelIcon();
TForm::Dispatch(&Msg);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::AddIcon()
{
nid.cbSize=sizeof(TNotifyIconData);
nid.hWnd=Handle;
nid.uID=0;
nid.uFlags=NIF_MESSAGE | NIF_ICON | NIF_TIP;
nid.uCallbackMessage=WM_MENUMSG;
nid.hIcon=Application->Icon->Handle;
strcpy(nid.szTip,"My TrayIcon 2005");
Shell_NotifyIcon(NIM_ADD,&nid);
ShowWindow(Application->Handle,SW_HIDE);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::DelIcon()
{
ShowWindow(Application->Handle,SW_SHOW);
Application->Restore();
this->Show();
SetForegroundWindow(Handle);
Shell_NotifyIcon(NIM_DELETE,&nid);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::FormClose(TObject *Sender, TCloseAction &Action)
{
nid.cbSize=sizeof(TNotifyIconData);
nid.hWnd=Handle;
nid.uID=0;
Shell_NotifyIcon(NIM_DELETE,&nid);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
AddIcon();
this->Hide();
}
//---------------------------------------------------------------------------

unit1.h
class TfrmMain : public TForm
{
__published: // IDE-managed Components
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
protected:
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_MENUMSG,TMessage,IconTray)
END_MESSAGE_MAP(TForm)
public: // User declarations
__fastcall TfrmMain(TComponent* Owner);
TNotifyIconData nid;
MESSAGE void __fastcall IconTray(TMessage &Msg);
void __fastcall AddIcon();
void __fastcall DelIcon();
};

[jaffy]

这个可以实现，我刚刚试了的，就是有最小化的效果不好
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ShowWindow(Application->Handle,SW_HIDE);
Application->ShowMainForm=false;
TrayIcon1->Minimize();

}
//---------------------------------------------------------------------------

[zhgwbzhd]

哦？？

哥们我这行怎么出错呢？？

Application->ShowMainForm=false;

[zhgwbzhd]

OK！我决定不用service程序了。

一般的应用程序没问题，就是这个方法。