像QQ一样,不在任务栏里显示程序名称

解决方案 »

  1.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
    end;
      

  2.   

    var
    ExtendedStyle : Integer;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(TForm1, Form1);
    Application.Run;
    end. 
      

  3.   

    以前的两种方法还可以,主要是通是application来做,挺简单
      

  4.   

    showwindow(application.handle,sw_hide);
      

  5.   

    showwindow(application.handle,sw_hide);  放在哪??
      

  6.   

    呵呵,不错,谢谢ing ……
      

  7.   

    ShowWindow(Application.Handle, SW_HIDE);
      SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
      

  8.   

    Application.Initialize;
    SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
    Application.CreateForm(TForm1, Form1);