当我的程序执行后,如何能隐藏WINDOWS下面的任务栏(100分)

  • 主题发起人 主题发起人 sunqi
  • 开始时间 开始时间
在form的onshow中加上一句<br>showwindow(application.handle,sw_hide);
 
procedure hidetaskbar; &nbsp;//隐藏 的函数<br>var<br>&nbsp; wndHandle:THandle;<br>&nbsp; wndClass: array[0..50] of char;<br>begin<br>&nbsp; &nbsp;strpcopy(@wndclass[0],'shell_traywnd');<br>&nbsp; &nbsp;wndhandle:=findwindow(@wndclass[0],nil);<br>&nbsp; &nbsp;showwindow(wndhandle,SW_HIDE);<br>end;<br><br>procedure hidetaskbar; &nbsp;//显示 的函数<br>var<br>&nbsp; wndHandle:THandle;<br>&nbsp; wndClass: array[0..50] of char;<br>begin<br>&nbsp; &nbsp;strpcopy(@wndclass[0],'shell_traywnd');<br>&nbsp; &nbsp;wndhandle:=findwindow(@wndclass[0],nil);<br>&nbsp; &nbsp;showwindow(wndhandle,SW_RESTORE);<br>end;
 
你是说隐藏任务栏还是程序在任务栏的图表了,两个答案艘对
 
对不起,我的问题没有说全,当任务栏隐藏后我的FORM的 ALGIN 的属性为CLIENT ,能使<br>我的FORM能站用上任务栏的位置, showwindow(wndhandle,SW_HIDE)的函数使得任务栏隐<br>藏但还占用该位置。请各位高手再帮帮忙。
 
procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp; application.ShowMainForm :=false;<br>end;
 
是想不让它占用任务栏的地方,对否?<br>procedure HideTaskIcon;<br>begin<br>&nbsp; ShowWindow( Application.Handle, SW_HIDE );<br>&nbsp; SetWindowLong( Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);<br>&nbsp; ShowWindow( Application.Handle, SW_SHOW );<br>end;<br><br>procedure ShowTaskIcon;<br>begin<br>&nbsp; ShowWindow( Application.Handle, SW_HIDE );<br>&nbsp; SetWindowLong( Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) and (not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW));<br>&nbsp; ShowWindow( Application.Handle, SW_SHOW );<br>end;<br><br>
 
不知道大家有没试过 如果多开几个窗口 再看看 alt+tab <br><br>还能否隐藏? <br><br>希望大家把结果告诉我 <br>
 
自己试~~~~~~~~~
 
多人接受答案了。
 
后退
顶部