关于程序不在任务栏里显示的问题？

Question

procedure TMainForm.FormShow(Sender: TObject); 
var Owner : HWnd; 
begin 
  Owner:=GetWindow(Handle,GW_OWNER); 
  ShowWindow(Owner,SW_HIDE); 
end; 

Answer 1

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

Answer 2

ShowWindowASync(Application.Handle ,SW_HIDE) ;//隐藏
ShowWindowASync(Application.Handle ,SW_SHOW) ; //显示

Answer 3

ShowWindow( Application.Handle, SW_HIDE ); //  不在任务栏显示

Answer 4

不行啊，单独使用的话SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); //不在任务栏显示就可以实现不在任务栏里出现了，可是现在要不在任务栏里出现，并且使程序不被最小化啊，

Answer 5

注意：
procedure Tform1.FormCreate(Sender: TObject);
begin
  self.BorderStyle:=bsNone;加了这一句，就不能实现了，如何在不删除这句的前提下实现啊

Answer 6

按WnEunfn(斯人不语) 说的做

Answer 7

procedure TForm1.FormCreate(Sender:TObject);
begin
try
  SetWindowLong(Application.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
except
  ShowMessage('failed!');
end;
end;
procedure TForm1.Button1Click(Sender:TObject);
begin
  close;
end;
end.