隐藏在任务栏中的程序[VB]
来源:互联网 发布:清华网络远程教育 编辑:程序博客网 时间:2024/04/30 22:23
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_APPWINDOW = &H40000
Private Sub chkTaskbar_Click()
Dim style As Long
Hide
style = GetWindowLong(hwnd, GWL_EXSTYLE)
If chkTaskbar.Value = 0 Then
If style And WS_EX_APPWINDOW Then
style = style - WS_EX_APPWINDOW
End If
Else
style = style Or WS_EX_APPWINDOW
End If
SetWindowLong hwnd, GWL_EXSTYLE, style
App.TaskVisible = CBool(chkTaskbar.Value)
Show
End Sub
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_APPWINDOW = &H40000
Private Sub chkTaskbar_Click()
Dim style As Long
Hide
style = GetWindowLong(hwnd, GWL_EXSTYLE)
If chkTaskbar.Value = 0 Then
If style And WS_EX_APPWINDOW Then
style = style - WS_EX_APPWINDOW
End If
Else
style = style Or WS_EX_APPWINDOW
End If
SetWindowLong hwnd, GWL_EXSTYLE, style
App.TaskVisible = CBool(chkTaskbar.Value)
Show
End Sub
- 隐藏在任务栏中的程序[VB]
- 隐藏显示在任务栏中的对话框程序
- 隐藏显示在任务栏中的对话框程序
- vb删除其他程序在任务栏中的图标
- 如何隐藏显示在任务栏中的对话框程序
- 隐藏程序在任务栏的图标
- Delphi 在任务栏隐藏程序图标
- 通过vb.net程序隐藏wince系统的任务栏
- 隐藏QT窗口在任务栏中的图标
- VB 隐藏任务栏和显示任务栏
- 在任务栏隐藏窗口
- 基于对话框的程序,在任务栏隐藏对话框
- 如何隐藏一个程序在任务栏上图标
- 隐藏程序的任务栏图标
- 隐藏任务栏上的程序
- 隐藏程序图标到任务栏
- 在任务栏上隐藏应用程序
- MFC 如何在自己的程序中获取Windows桌面底部任务栏 自动隐藏任务栏\取消自动隐藏任务栏 的消息
- 又过了一星期了又开始迷茫了
- 在Lua中调用C++函数
- 每天问自己十个问题
- 上周技术关注:软件的力量
- 破解超级够级2004v5.1版
- 隐藏在任务栏中的程序[VB]
- Bookmarks
- 资源网址
- 终于有blog了。呵呵。
- 设边框为1px的最简单方法-2006-6-26-2
- 开源blog-pebble
- 我是好人
- 一个责任编辑的日记
- 河南人怎么了?