pb中全屏的问题

[tete]

怎么才能让窗口全屏显示，是那种完全的全屏，任务栏也被覆盖的那种？谢谢

[doodle]

声明：
Function Long SetWindowPos(Long hwnd, Long ord, Long x, Long y, Long dx, Long dy, Long uflag) Library "user32.dll" alias for "SetWindowPos;Ansi"

调用：
SetWindowPos(Handle(This),-1,0,0,0,0,3)

[wuhaifeng558]

學習

[winwhere]

好象不行呀，也不知道空间如何写的。

[dangerous123]

没这么弄过,不过肯定就是当程序运行的时候利用api去修改任务栏的显示与否,程序断开后再
还原.

[leio]

窗口的OPEN中这样写就可以了。

Environment env
getenvironment(env)
long screenwidth,screenheight
screenwidth = env.ScreenWidth
screenheight = env.ScreenHeight
this.width = PixelsToUnits(screenwidth, XPixelsToUnits!)
this.height = PixelsToUnits(screenheight, YPixelsToUnits!)
this.setposition(topmost!)

---------------
如果要彻底隐藏windows的工具条，用下面的API

//定义API
Function long FindWindowExA( long hWnd, long hWndChild, ref string lpszClassName, ref string lpszWindow) library 'user32'
Function long ShowWindow (long hWnd, long nCmdShow ) library 'user32'


//以下为代码
//隐藏或显示Windows 工具条

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_null
setnull(ls_null)

Long ll_HTaskBar, ll_HDeskTop
//隐藏
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )
ShowWindow( ll_HTaskBar, SW_HIDE )
messagebox('隐藏','windows工具条已经被隐藏')
//显示
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )
ShowWindow( ll_HTaskBar, SW_SHOW )
messagebox('显示','windows工具恢复显示')

[shengjinbo]

好东西，存一个

[lao_bulls]

不错!

[ybkenan]

學習

[dangerous123]

学习,并mark一下

[bpy]

gz