你知道吗?+关于隐藏窗口+马上给分! delphi中怎样才能够使窗口在任务拦中不显示??? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 显示和隐藏任务栏procedure HideTaskBar; var wndHandle : THandle; begin wndHandle := FindWindow('Shell_TrayWnd', nil); ShowWindow(wndHandle, SW_HIDE); end; procedure ShowTaskBar; var wndHandle : THandle; begin wndHandle := FindWindow('Shell_TrayWnd', nil); ShowWindow(wndHandle, SW_RESTORE); end; 是不是这个?? 大家早!不是3楼说的啊我的意思是当你打开一个程序窗口的时候,任务拦不出现相应的图标。我的目的是:那样用户就不能够在图标上点鼠标右键,不能够实现关闭了!!(使右键菜单的Alt+F4不能够用) 不好意思上面写错了是!Application.showMainform:=false; 把窗体给设置成toolwindow 或是 none型的也可以,或是下面这种方法:setwindowlong(application.Handle,gwl_exstyle,ws_ex_toolwindow); 都不行呀!!Application.ShowHint:=true窗口又不能够在屏幕上显示BorderIcons属性设置也改成了[],但是怎么还是没有反映???大家快来帮忙呀!!:(555 不好意思看成标题栏了在form.create里setwindowlong(application.Handle,gwl_exstyle,ws_ex_toolwindow); procedure TForm1.FormCreate(Sender: TObject);begin SetWindowLong(application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);end; Sorry,打开时楼上还没有显示,楼上的先答了…… setwindowlong(application.Handle,gwl_exstyle,ws_ex_toolwindow); setwindowlong可以了,如果窗体最小化的时候在任务栏里不出现怎么做? 建议楼主看看以下:1、Kingron ---- 超级猛料出新版了2、hubdog----葵花宝典 setwindowlong(application.Handle,gwl_exstyle,ws_ex_toolwindow); 进度条的数值在for循环执行完才显示? 检测鼠标滑动用Dragging如何实现? pc 与手机通讯 如何在FastReport中动态增加数据字典?? 获得其中一行的某个字段 谁知道怎么取得打印报表的总的页shu 请问Delphi中应用程序的运行 dana(dana) 来拿分 如何安装只有DCU文件的控件? 大家帮我出出主意,很急! 对流属性的查询,高手请进! 高手请帮忙!!如何生成运动会的秩序册呢??
var
wndHandle : THandle;
begin
wndHandle := FindWindow('Shell_TrayWnd', nil);
ShowWindow(wndHandle, SW_HIDE);
end; procedure ShowTaskBar;
var
wndHandle : THandle;
begin
wndHandle := FindWindow('Shell_TrayWnd', nil);
ShowWindow(wndHandle, SW_RESTORE);
end; 是不是这个??
不是3楼说的啊我的意思是
当你打开一个程序窗口的时候,任务拦不出现相应的图标。
我的目的是:那样用户就不能够在图标上点鼠标右键,不能够实现关闭了!!
(使右键菜单的Alt+F4不能够用)
setwindowlong(application.Handle,gwl_exstyle,ws_ex_toolwindow);
Application.ShowHint:=true窗口又不能够在屏幕上显示
BorderIcons属性设置也改成了[],但是怎么还是没有反映???
大家快来帮忙呀!!:(555
在form.create里
setwindowlong(application.Handle,gwl_exstyle,ws_ex_toolwindow);
begin
SetWindowLong(application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
如果窗体最小化的时候在任务栏里不出现怎么做?
1、Kingron ---- 超级猛料出新版了
2、hubdog----葵花宝典