加在窗体创建事件下<br><br>procedure Tform1.FormCreate(Sender: TObject);<br> //隐藏任务栏中的程序图标<br> ShowWindow( Application.Handle, SW_HIDE );<br> SetWindowLong( Application.Handle, GWL_EXSTYLE,<br> GetWindowLong(Application.Handle, GWL_EXSTYLE) or<br> WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);<br> ShowWindow( Application.Handle, SW_SHOW );