如何隐藏任务栏上某个程序的图标?(20)

如何隐藏任务栏上某个程序的图标?

procedure TForm1.Button1Click(Sender: TObject);Var XWndLong:Word;begin XWndLong:=GetWindowLong (Application.Handle,GWL_EXSTYLE);//其中XWndLong是Word类型变量 ShowWindow(Application.Handle,SW_HIDE ); SetWindowLong (Application.Handle,GWL_EXSTYLE,XWndLong or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW or WS_EX_TOPMOST); ShowWindow(Application.Handle,SW_SHOW );end;

多人接受答案了。