敬业的IT人 互联网 佚名 2008-1-4 11:47:45

首先声明如下外部函数：
Function long FindWindowExA &
( long hWnd, long hWndChild, ref string lpszClassName, &
ref string lpszWindow) library 'user32'

Function long ShowWindow &
(long hWnd, long nCmdShow ) library 'user32'

在Script中加入如下内容：
Constant Long SW_HIDE = 0
Constant Long SW_NORMAL = 1
Constant Long SW_SHOWMINIMIZED = 2
Constant Long SW_SHOWMAXIMIZED = 3
Constant Long SW_SHOWNOACTIVATE = 4
Constant Long SW_SHOW = 5
Constant Long SW_MINIMIZE = 6
Constant Long SW_SHOWMINNOACTIVE = 7
Constant Long SW_SHOWNA = 8
Constant Long SW_RESTORE = 9
Constant Long SW_SHOWDEFAULT = 10

String ls_ShellTaskBarWnd = "Shell_TrayWnd"
String ls_isnull

Long ll_HTaskBar, ll_HDeskTop
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )
ShowWindow( ll_HTaskBar, SW_HIDE )
MessageBox( 'Pause', 'Can you see TaskBar?' )
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )
ShowWindow( ll_HTaskBar, SW_SHOW )

进入讨论组讨论。

最新文章

我该使用何种语言[01-04]

虚拟地景生成系统 1.1v 介绍[01-04]

应用版本控制软件管理软件开发[01-04]

用PB实现Windows2000下的自动关机[01-04]

用PB生成GUID(全球唯一码)解决主键重复[01-04]

用PB如何调用WINDOWS的API（以播放声音为例）？[01-04]

相关文章