怎样用代码设置任务栏为自动隐藏?

frogshero 2003-08-18 07:08:39
rt
...全文
107 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
ronaldli 2003-09-25
  • 打赏
  • 举报
回复
人家说的是自动隐藏,Windows的一项设置,不是隐藏
flinming 2003-09-24
  • 打赏
  • 举报
回复
学习。。。。。
ljz1211 2003-09-24
  • 打赏
  • 举报
回复
hao ting!!
haoguozhong 2003-09-24
  • 打赏
  • 举报
回复
Procedure TForm1.FormCreate(Sender.....)
Begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
End;

给分吧
chenquan 2003-08-20
  • 打赏
  • 举报
回复
//隐藏任务栏
procedure TForm1.button1click(sender:Tobject);
var wndhandle:Thandle;
wndclass:array[0..50] of Char;
begin
strPCopy(@wndClass[0],'Shell_TrayWnd');
wndHandle:=FindWindow(@wndClass[0],nil);
ShowWindow(wndHandle,SW_HIDE); //隐藏任务栏
end;
procedure TForm1.button2click(sender:Tobject);
var wndhandle:Thandle;
wndclass:array[0..50] of Char;
begin
strPCopy(@wndClass[0],'Shell_TrayWnd');
wndHandle:=FindWindow(@wndClass[0],nil);
ShowWindow(wndHandle,SW_RESTORE); //显示任务栏
end;
frogshero 2003-08-19
  • 打赏
  • 举报
回复
upup
frogshero 2003-08-18
  • 打赏
  • 举报
回复
up

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧