精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VFP>>〖外部引用〗>>如何屏蔽ctrl+alt+del和任务栏

主题:如何屏蔽ctrl+alt+del和任务栏
发信人: 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 

[关闭][返回]