说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

禁止使用 Alt-Tab 或 Ctrl-Alt-Del -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
禁止使用 Alt-Tab 或 Ctrl-Alt-Del -VB资料

Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As Integer
Private Declare Function IsWindowEnabled Lib "user32" (ByVal hWnd As Integer) As Integer
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private TaskBarhWnd As Long
Private IsTaskBarEnabled As Integer
Private TaskBarMenuHwnd As Integer
'禁止或允许使用 Alt-Tab
Sub FastTaskSwitching(bEnabled As Boolean)
Dim X As Long, bDisabled As Long
bDisabled = Not bEnabled
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
'禁止使用Ctrl-Alt-Del
Public Sub DisableTaskBar()
Dim EWindow As Integer
TaskBarhWnd = FindWindow("Shell_traywnd", "")
If TaskBarhWnd <> 0 Then
EWindow = IsWindowEnabled(TaskBarhWnd)
If EWindow = 1 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 0)
End If
End If
End Sub
'允许使用Ctrl-Alt-Del
Public Sub EnableTaskBar()
If IsTaskBarEnabled = 0 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 1)
End If
End Sub

禁止 Ctrl+Alt+Del
声明(For Win95):
Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
lpvParam As Any, ByVal fuWinIni As Long) As Long
使用:
'禁止
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
'开启
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
实现不同数据库系统之间的数据转移-Delphi资料 使 用WISQL32 同 时 访 问SQL SERVER 和SYBASE 数 据 库Delphi资 使用Session构件可以在打开有密码的库时不用输入密码-Delphi资料 使用SQL实现字段数据的模糊查询-Delphi资料 数据表的索引被损坏了怎么办-Delphi资料 数据库的密码、日期显示-Delphi资料 数据库应用程序开发中图像数据的存取技术-Delphi资料 数据库中图像数据的存取技术-Delphi资料 数据库转换-Delphi资料 数据浏览部件的应用及编程-Delphi资料 数据文件路径的管理-Delphi资料 随意控制DBGrid每一行的颜色-Delphi资料 通过DELPHI实现JAVA调用ORACLE数据库数据 通过编写代码来设置数据库的别名-Delphi资料 为Delphi数据表格增加彩色 为Delphi提供Pack和Undelete功能 为Delphi中数据库报表加网格 为数据库报表加网格-Delphi资料 为数据库建立索引-Delphi资料 掀开SQL Server 7.0的面纱-Delphi资料 限制数据库记录数-Delphi资料 向数据库发送密码-Delphi资料 一个关于字符串的小问题-Delphi资料 用 QuickReport for Delphi 制作报表 用Delphi 开发数据库程序经验三则 用Delphi 实 现 不 同 数 据 库 系 统 之 间 的 数 据 转 移 用DELPHI本身的控件输出TABLE表数据 用Delphi编程访问SQLServer数据库 用delphi编写医院的复杂报表 用Delphi程序维护Paradox 数据表的索引 用Delphi的InterBase数据库开发C&S应用程序 请问一个关于document.write()方法的问题。急啊! 初学者,欢迎灌水。 Delphi6的Bug?不兼容? 为什么我用GetProfileString()却总是得不到结果 sos 请教各位大侠一个问题 delphi6中的installShield 请介绍接收端CRC校验传输内容是否正确的方法,资料或代码。谢谢! 各位大侠请问Jeffrey Richter的windows核心程序设计是不是就是andvanced windows程序设计的第四版? 谁会做软件狗?有钱赚了!!! 为什么我用QuickRep作的报表只能显示一条记录,而且columnHeaderBand上内容也显示不出来 请问在税务局开发数据库的同行么?? 大家好各位大侠请问Jeffrey Richter的windows核心程序设计是不是就是andvanced windows程序设计的第四版? 谁做过软件狗,马上来拿钱!!! 江苏省的成绩什么时候可以出来啊,我是徐州的 shockwaveflash没有hwnd,怎么办? chechy(chechy) 你在吗? 一个关于用excel做的日报的问题 谁会做软件狗,马上来拿钱!!! 给你下跪了,给你磕头了,给你鞠躬了。很简单的问题。谢谢 那位大哥能告诉我在VC中我要创建类的话应该做哪些工作步骤(要详细的,呵呵) 紧急求救,asp连接mysql问题 在使用twebbrowser的时候,怎样制止网页的自动刷新和跳转? vc编译器错了怎么办???突然死机,然后就不好好干了!!谢谢 ?如何将二进制的 值写如注册表? Delphi紧急求助! 我想问的是,返回的 ResultSet 中的某个字段(int 型),如何放到一个 int[]数组里去。因为 ResultSet 不知道怎样取 size,我又不想用 vector, ResultSet的getArray()方法也是莫名其妙。 c盘格式化后,怎样找到linux系统? 有意思 过来研究一下!!!!insert 的!!!!难道 25 不是 long integer 吗 我的程序debug版,一直调试好好的,我rebuid all 一下就出错了,错误如下:怎么回事? 位图问题? 怎样使用自定义的光标??? 我想找Hopen SDK的开发包。 为什么我的iis总是报500内部服务器错误。我先装的framework,后来升级了ie5.5,最后在w2kprofessional上装了iis,手动添加了aspx解析:指向aspnet_isapi.dll,为什么还报错? 那里有关于用组件上传图片并且显示上传图片的介绍 NT 上已安装好mysql服务器,WIN98 client连接不上,求救 程序员梦难圆,请大家给我这个非计算机专业的兄弟出出主意。 小弟是delphi初学者,师兄师姐们给我介绍一下object pascal自带的函数好么? 你知道如何禁止后退按钮吗? 请各位高高手!解决启动时ctrl+alt+del可结束任务的问题。 哪位大侠指点一下ActiveSkin怎么用的? 引用ado后,打包程序为什么如此之大 为什么我的iis总是报500内部服务器错误。我先装的framework,后来升级了ie5.5,最后在w2kprofessional上装了iis,手动添加了aspx解析:指向aspnet_isapi.dll,为什么还报错?? 散源代码(1)- 货郎担问题(TSP)分枝限界算法 (急)哪位大侠有关于power designer的书,中文的,谢谢 ■■在线等待,找到立刻送分,决不失言。CSDN兄弟在帮忙,PB7安装盘不能安装POWERJ,是吗?在那里可以找到POWERJ安装盘?■■ 哪个虚拟光驱的软件在XP下可以用,虚拟光驱和光驱魔术师都不行呀 有谁知道那里有可以放ASP代码网页的免费空间 请问在VC中如何使静态框中的字体变色? 若想在BDE-Administrator中使用*.mdb,必须将*.mdb注册到文件DSN或者系统DSN中吗? 请教,如何在其他的应用程序的title上(最小化按钮旁边)添加按钮? 为什么我的iis在运行.aspx(asp.net)文件总是报500内部服务器错误。我先装的framework,后来升级了ie5.5,最后在w2kprofessional上装了iis,手动添加了aspx解析:指向aspnet_isapi.dll 描写四季的词语有哪些? 哪位朋友能给我麻辣小食品的配方呢?.. 金属丝利用了金属的什么物理性质 描写四季的诗句 用压面机压切面的配方是什么?我新买的压面机,想压切面,可是不知道面粉里应该添加什么, 古代计算时间方式除了生物钟,书钟和太阳种以外,还有什么计算时间方式吗?我有急用, 描写四季的成词语 什么金属导电后易发热 电焊怎样区分焊水焊渣 有关描写四季的诗句 焊缝化学成分分析结果和母材相近还是和焊材相近? 电焊的焊角怎么计算 测量气温时应该选择什么地点 FG碳纤维发热板正常工作时的表面温度?是否会产生可见光? 42CrMo材料的焊接性能怎么样,用什么焊材呀? 怎样测气温?测时要注意什么? 从八品什么意思 焊接Cr25Ni20(两种相同材料焊接)用什么焊材?怎么焊接? 古代的几更天与现在的时间具体是怎样相对应的? 泊来品什么意思 4个描写描写四季的词语 优美句子 除四季以外的. 配送品什么意思 焊接材料是影响焊缝和焊接热影响区性能的因素之一是对吗 四季的农村风光的图片,关于四季农村的优美句子 挤单品是甚么意思 谁有描写四季的诗句快 宫保鸡丁的主料、配料、调味品和特色各是什么!急i急! 品足是什么意思? 描写四季的诗要整首古诗 食品物性学中食品材料的特征是什么? 求教:角焊中,习惯上焊缝高度指的什么?和国家标准一致么?我一直认为角焊中,焊缝高度就是指焊脚尺寸,前几天,有人告诉我不对,说焊缝高度指的是喉厚, 打品是什么意思 爸爸的花儿落了,从记叙的顺序上看,本文在材料安排上有什么特点?这样安排有什么好处? 为什么要规定角焊缝的最小、最大焊角尺寸 犬的“品相”是什么意思 压力容器为什么这么多规定啊 如何计算角焊缝焊脚高度?具体依据的是什么标准. 品武是什么意思 ? 压力容器标准?压力容器现状?压力容器标准含义?谁能给详细解答一下? 有哪些描写秋天的优美的句子,40字~50字左右. 化工品的几类危品是什么意思 压力容器的标准是多少? 描写环境的优美句子200字 吉他里的品数是什么意思 压力容器还有怎样的操作规则? 古时候的人是用什么方法测量物体的长度 光焊丝进行焊时,对焊缝质量会有什么影响 古时候人们是怎样测量长度的 古代没有尺子的时候,怎么测量长度﹖ 由不锈钢焊条和结构钢焊条组合焊的焊缝结构特点 古时候是怎样测量长度的 内墙腻子粉配方是啥不掉粉 成本低 .以下自然现象中,包含两种或两种以上物理现象的是() A 弯折金属丝,金属丝发热 B 夏天午后,暴风骤雨伴1.以下自然现象中,包含两种或两种以上物理现象的是()A 弯折金属丝,金属丝发热 B 古时候人们是怎样测量物体长度的 食品配料表中VC是不是D-异抗坏血酸钠 电经过金属丝发热电经过金属丝会使金属丝发热,地球上有人知道为什么吗? 古代测量长度和时间的方法300字左右 做豆腐的配方是什么? 一从中间弯曲成直角的金属丝一从中间弯曲成直角的金属丝,一端悬挂,总长为L.则金属丝静止时,一直角边和竖直方向夹角为多少?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn