发信人: foxzz()
整理人: hunter__fox(2002-03-16 21:48:54), 站内信件
|
1、屏蔽ctrl+alt+del
Declare integer SystemParametersInfo In "user32" integer uAction , int
eger uParam, integer @lpvParam , integer fuWinIni
local SPI_SCREENSAVERRUNNING
SPI_SCREENSAVERRUNNING = 97
local m_retu
m_retu=0
&& 屏蔽ctrl+alt+del
=SystemParametersInfo (SPI_SCREENSAVERRUNNING, 1, @m_retu, 0)
if messagebox("是否恢复ctrl+alt+del?",4+32+0,"信息")=6
=SystemParametersInfo (SPI_SCREENSAVERRUNNING, 0,@m_retu, 0)
endif
2、屏蔽任务栏
declare long FindWindowExA In "user32" long hWnd, long hWndChild, st
ring @lpszClassName, string @lpszWindow
declare long ShowWindow In "user32" long hWnd, long nCmdShow
SW_HIDE = 0
SW_NORMAL = 1
SW_SHOWMINIMIZED = 2
SW_SHOWMAXIMIZED = 3
SW_SHOWNOACTIVATE = 4
SW_SHOW = 5
SW_MINIMIZE = 6
SW_SHOWMINNOACTIVE = 7
SW_SHOWNA = 8
SW_RESTORE = 9
SW_SHOWDEFAULT = 10
ls_ShellTaskBarWnd = "Shell_TrayWnd"
local ls_Null
local ll_HTaskBar, ll_HDeskTop
&& 屏蔽任务栏
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, .null. )
=ShowWindow( ll_HTaskBar, SW_HIDE )
if messagebox("是否恢复任务栏?",4+32+0,"信息")=6
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, .null.)
=ShowWindow( ll_HTaskBar, SW_SHOW )
endif
3、关于限制鼠标区域问题,涉及vfp对api的结构设置
我要整理一下才可答复
foxzzfoxzzfoxzzfoxzzfoxzz |
|