如何把程序在windows窗口最底下的任务栏隐去?

Question

首先声明，是抄的：
To hide the task bar entry:procedure TMainForm.FormShow(Sender: TObject);
var Owner : HWnd;
begin
  Owner:=GetWindow(Handle,GW_OWNER);
  ShowWindow(Owner,SW_HIDE);
end;To prevent the taskbar to show up again after minimizing the application:{MainForm: interface} 
procedure WMSysCommand(var Message: TWMSysCommand); message
WM_SysCommand;procedure TMainForm.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
    Hide
  else 
  ......

Answer 1

任务其实也是一个窗口，找出它的句柄用SENDMESSAGE发消隐消息，就可以了

Answer 2

你在FormCreate中加这一句应该就可以了!!SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

Answer 3

private
  htaskbar:hwnd;
在form的create中
  htaskbar:=findwindow('shell_traywnd',nil);
  showwindow(htaskbar,sw_hide);
在form的destory中
  showwindow(htaskbar,sw_show);
利用上面代码可以实现运行程序时,关闭windows窗口下面的任务栏,结束程序时,恢复windows窗口下面的任务栏.
当然此程序我已经在delphi5编译环境中通过.非常好用.

Answer 4

是要关任务栏还是要把程序从任务栏中隐藏？如果是前者见上贴，后者见下：
ShowWindow( Application.Handle, SW_HIDE );

Answer 5

我倒…………这么多大侠竟然没有一个正确理解或者正确回答人家的问题的…………
//这是我的源程序粘贴 还热乎着呢
SetWindowLong(this->Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);//隐藏任务列表不行的话Mailto:[email protected]  或者 http://yeqiufeng.51.net  留言

Answer 6

to yeqiufeng:
难道的我的回答就不对吗?不是和你说的一样?

Answer 7

procedure TForm1.btnHideTaskBarClick(Sender: TObject);
 Var
TaskBarHandle : Integer;
 Begin
  TaskBarHandle := FindWindow('Shell_TrayWnd',Nil);
  ShowWindow(TaskBarHandle, SW_HIDE);
End;procedure TForm1.btnShowTaskBarClick(Sender: TObject);
 Var
TaskBarHandle : Integer;
 Begin
  TaskBarHandle := FindWindow('Shell_TrayWnd',Nil);
  ShowWindow(TaskBarHandle, SW_SHOW);
  //NOTE : You can also use this one to
  //Refresh the TaskBar.
End;

Answer 8

ShowWindowAsync(Application.Handle, SW_HIDE);

Answer 9

在一本叫《Delphi5编程实例与技巧》的书上有原例，代码记不清，有机会的话可以参阅一下。

Answer 10

隐藏用setwindowpos(application.handle,hwnd_topmost,0,0,0,0,SWP_HIDEWINDOW);
显示用setwindowpos(application.handle,hwnd_topmost,0,0,0,0,SWP_showWINDOW);

Answer 11

改变工程名只要在ctrl+f12里面的下面加入application.title:='您想要的名字';

Answer 12

最简单的做法........只要你的改一下你的Form 的Style属性就可以了。哈哈。