用命令行参数, 启动时最小化

 Program Project1;

Uses
  Forms,
  Windows,
  Messages,
  SysUtils;
{$R *.res}
Begin

  { =================-start 隐藏主窗体================= }
    If LowerCase(ParamStr( 1 ))  =   ' -start '  Then Begin
      ShowWindow(Application.Handle, SW_HIDE);
      Application.ShowMainForm : =  False;
    End;
  { ===================================================}
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
End.

aaaa

  TForm1 = Class(TForm) 
  Protected
    Procedure wndproc (Var message : Tmessage); Override;
  End;

Procedure TF orm 1. wndproc (Var message : Tmessage);
Begin
    Case message . msg Of
          WM_SYSCOMMAND: Begin
             Try
                    Case message .WP aram Of
                          SC_CLOSE , SC_MINIMIZE: Begin
                            C oolTrayIcon1.MinimizeToTray := True;
                            Application.Minimize;
                      End;
                   Else
                      Inherited wndproc ( message );
                   End;
            Except
              On EAccessViolation Do ;
            End;
         End;
   End;
End;

Procedure TForm1.FormCreate(Sender: TObject);
Var
 dwStyle: DWORD ;
Begin
     { ==========设置当前窗体属性，不在任务栏出现================= }
    dwStyle : =  GetWindowLong(Form1.Handle,GWL_EXSTYLE);
    dwStyle : = dwStyle  or  WS_EX_TOOLWINDOW;
    SetWindowLong(Application.Handle,GWL_EXSTYLE,dwStyle);
     { ======================================================= }
End;

 

转载于:https://www.cnblogs.com/tulater/archive/2008/10/30/1323205.html