BCB不让应用程序显示在任务栏上的方法
&Windows规定，如果一个窗口是浮动的工具类型窗口时，它就不在任务栏上显示了。
要为窗口设置这个属性，可以利用API函数SetWindowLong。该函数用来改变窗口的一些特征它的定义如下：
////////////////////////////////////////////////////////////////////////////////////////
LONG SetWindowLong(
& & &HWND,hWnd & & & & & & & &////窗口句柄
& & &int nIndex, & & & & & & & & & & &////值的偏移设置量
& & &LONG dwNewLong & & ////新值
/////////////////////////////////////////////////////////////////////////////////////////////
参数nIndex的取值见下表：
#define GWL_WNDPROC & & & & (-4) ////为窗口过程设置新地址
#define GWL_HINSTANCE & & & (-6) ////设置一个新的应用程序实例句柄
#define GWL_HWNDPARENT & & &(-8) ////
#define GWL_STYLE & & & & & (-16) ////设置新窗口类型
#define GWL_EXSTYLE & & & & (-20) ////设置新窗口扩展类型
#define GWL_USERDATA & & & &(-21) ////为窗口设置一个相联系的32位值，每一个窗口都有一个32位值，应用程序产生这个窗口时要利用这个值
#define GWL_ID & & & & & & &(-12)////为窗口设置一个新的识别号
如果hWnd参数为对话框，nIndex还可以取如下三个值：
DWL_DLGPROC ////为对话框过程设置新地址
DWL_MSGRESULT ////为对话框设置返回值
DWL_USER ////为应用程序设置新的额外信息
//////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////
这样，要使应用程序不显示在任务栏上，则在窗口的构造函数中写下面一句就可以了：
/////////////////////////////////////////////////////////////////////////////////////////////
__fastcall TForm1::TForm1(TComponent* Owner)
& & & & : TForm(Owner)
& SetWindowLong(Application-&Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
/////////////////////////////////////////////////////////////////////////////////////////////
【声明】:黑吧安全网()登载此文出于传递更多信息之目的，并不代表本站赞同其观点和对其真实性负责，仅适于网络安全技术爱好者学习研究使用，学习中请遵循国家相关法律法规。如有问题请联系我们，联系邮箱，我们会在最短的时间内进行处理。
上一篇：【】【】如何让应用程序只有一个实例在运行_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
如何让应用程序只有一个实例在运行
上传于||文档简介
&&如何让应用程序只有一个实例在运行
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(128)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
在LOFTER的更多文章
loftPermalink:'',
id:'fks_',
blogTitle:'程序在所有用户下只有一个实例运行的方法',
blogAbstract:'\r\n在程序刚启动首次进入的函数里，比如在SDI程序的BOOL CXXXXApp::InitInstance()函数里，加入如下代码：\r\n#define UNIQUE_INSTANCE _T(\"UNIONPOWER_PMDataWBServer_{AF646EA9-A680-41b5-9588-F47EBC7EE382}\")\r\nBOOL CPMDataWBServerApp::InitInstance(){&&&&&&&&& // 创建互斥内核对象, 实现只能启动一个程序实例&&&&&&&&&& HANDLE hInstance = ::CreateMutex(NULL, FALSE, strMutex);',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:7,
publishTime:1,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(2148)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'关于在bcb中调用外部程序的用法【转】',
blogAbstract:'1:用system(\"\")运行（简单，像在CMD命令行一样）
2:用WinExec()运行
3:用CreateProcess运行
4:用ShellExecute运行.
1)& WinExec()
函数原型： UINT WinExec(LPCSTR lpCmdLine,UINT uCmdShow);
参数说明：(激活的意思是能接受焦点，即标题栏变成蓝色)
lpCmdLine：以0结尾的字符串，
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}