一般Windows运行程在任务栏上,
  要实现该功能要在OnCreate事件里利用到API函序时都会在任务栏上出现按钮,我想不让它出现数SetWindowLongprocedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowLong(Application , Handle , GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end; 但是上面这段代码却提示两个错误:
[Error] Unit1.pas(28): Incompatible types: 'HWND' and 'TApplication' 
[Error] Unit1.pas(28): Too many actual parameters在线等,谢谢!

解决方案 »

  1.   

    SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
      

  2.   

    SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
      

  3.   

    procedure TForm1.FormShow(Sender: TObject);
    begin
      showWindow(Application.Handle,SW_HIDE);
    end;
      

  4.   

    参数摄得不对
    SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
      

  5.   

    SetWindowLong(Application.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
      

  6.   

    procedure TfrmLoading.FormCreate(Sender: TObject);
    begin
      SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);//函数
    end;
    Form的FormStyle属性设为fsStayOnTop
      

  7.   

    procedure TForm1.FormActivate(Sender: TObject);
    begin
      showWindow(Application.Handle,SW_HIDE);
    end;