Application問題

Question

怎样使一个程序运行之后在Win的任务栏不出现,也不出现在托盘中,只显示窗体,多谢啦.

Answer 1

SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var
  hdesk:Thandle;
begin
  hdesk:=GetDesktopWindow;
  ShowWindow( Application.Handle, SW_HIDE );
  SetWindowLong( Application.Handle, GWL_EXSTYLE,
                 GetWindowLong(Application.Handle, GWL_EXSTYLE) or
                 WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  ShowWindow( Application.Handle, SW_SHOW );
end;

Answer 3

SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
在Create里写代码 是可行的