是想不让它占用任务栏的地方,对否?<br>procedure HideTaskIcon;<br>begin<br> ShowWindow( Application.Handle, SW_HIDE );<br> SetWindowLong( Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);<br> ShowWindow( Application.Handle, SW_SHOW );<br>end;<br><br>procedure ShowTaskIcon;<br>begin<br> ShowWindow( Application.Handle, SW_HIDE );<br> SetWindowLong( Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) and (not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW));<br> ShowWindow( Application.Handle, SW_SHOW );<br>end;<br><br>