怎么让应用程序不出现在任务栏？？

Question

消息[此问题已经成为被解决的问题，搜一下先...]

Answer 1

隐蔽程序
program Project1;
uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {fool};
var
  ExtendedStyle:Integer;
{$R *.RES}
begin
  Application.Initialize;
  ExtendedStyle:=GetWindowLong(Application.Handle ,GWL_EXSTYLE);
  {*** 在任务栏中隐藏自己 ***}
  SetWindowLong(Application.Handle , GWL_EXSTYLE,ExtendedStyle or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  Application.CreateForm(Tfool, fool);
  Application.Run;
end.procedure Tfool.FormCreate(Sender: TObject);
var
  DesktopHandle:HWND;
begin
  DesktopHandle:=GetDesktopWindow();    //返回桌面窗口的句柄
  ShowWindowAsync(Application.Handle ,SW_HIDE);  //在任务管理器中隐藏自己
end;