有誰能给我屏蔽win2000的ctrl+alt+delete 的delphi源码！

茁状成长的幼苗，请大家照顾一下，有誰能给我屏蔽win2000的ctrl+alt+delete  的delphi源码！本人将以分相许。急急急！在线实时等待！！！ 我的email:
[email protected]

解决方案 »

  1.   

    利用GINA实现Ctrl+Alt+Del的拦截WINDOWS NT/2000下如何屏蔽CTRL+ALT+DEL作者:ac952_z_cn前言在WINDOWS 9X环境中我们可以使用SystemParametersInfo (SPI_SCREENSAVERRUNNING, 1,NULL, 0);来屏蔽CTRL+ALT+DEL,但在NT/2000环境下却行不通,即使使用WH_KEYBOARD_LL这个低级的键盘hook也无法拦截！笔者通过替换GINA DLL的方式很好地实现了在NT/2000下屏蔽CTRL+ALT+DEL的功能。下载源代码 6K一、原理在NT/2000中交互式的登陆支持是由WinLogon调用GINA DLL实现的，GINA DLL提供了一个交互式的界面为用户登陆提供认证请求。在WinLogon初始化时，就向系统注册截获CTRL+ALT+DEL消息，所以其他程序就无法得到CTRL+ALT+DEL的消息。WinLogon会和GINA DLL进行交互，缺省是MSGINA.DLL(在System32目录下)。微软同时也为我们提供的接口，自己可以编GINA DLL来代替MSGINA.DLL。WinLogon初始化时会创建3个桌面：(1)、winlogon桌面：主要显示window 安全等界面，如你按下CTRL+ALT+DEL,登陆的界面等(2)、应用程序桌面：我们平时见到的那个有我的电脑的界面(3)、屏幕保护桌面：屏幕保护显示界面。在用户登陆以后，按下CTRL+ALT+DEL键的时候，WinLogon回调用GINA DLL的输出函数：WlxLoggedOnSAS，这时正处于winlogon桌面，我们只要直接将他转向应用程序桌面，系统就不会显示Windows安全那个界面，换一种说法也就是用户按下CTRL+ALT+DEL后，不会起什么作用。当是我们在切换桌面的时候会出现屏幕闪动！二、程序实现GINA DLL要输出下列函数(winlogon会调用)WlxActivateUserShellWlxDisplayLockedNoticeWlxDisplaySASNoticeWlxDisplayStatusMessageWlxGetStatusMessageWlxInitializeWlxIsLockOkWlxIsLogoffOkWlxLoggedOnSASWlxLoggedOutSASWlxLogoffWlxNegotiateWlxNetworkProviderLoadWlxRemoveStatusMessageWlxScreenSaverNotifyWlxShutdownWlxStartApplicationWlxWkstaLockedSAS为了简化编程，我们从MSGINA.DLL中动态获取上诉函数，在自定义的DLL中(以下称为NoReboot.DLL)中直接调用MSGINA.DLL的函数即可。现在我们要处理的就是WlxLoggedOnSAS函数：　int WINAPI WlxLoggedOnSAS (PVOID pWlxContext,DWORD dwSasType,PVOID pReserved){HANDLE hMutex;WriteInfo("WlxLoggedOnSAS "); //用于记录信息if (dwSasType == WLX_SAS_TYPE_CTRL_ALT_DEL){ //屏蔽CTRL_ALT_DEL,也可以根据特定条件来决定是否要屏蔽//我采用了Mutex来控制是否屏蔽，（注意:要用unicode)hMutex = OpenMutex(MUTEX_ALL_ACCESS, FALSE, L"_ac952_z_cn_CTRL_ALT_DEL");if (hMutex){CloseHandle(hMutex);WriteInfo("disble CTRL+ALT+DEL ");return WLX_SAS_ACTION_NONE; //将屏幕切换到应用程序桌面,屏蔽掉CTRL+ALT+DEL}elseWriteInfo("not disble CTRL+ALT+DEL ");}return prcWlxLoggedOnSAS ( //这是我从MSGINA.DLL中获取的函数。pWlxContext,dwSasType,pReserved);}我们要在自己的程序中调用hMutex = CreateMutex(NULL, FALSE, "_ac952_z_cn_CTRL_ALT_DEL");就可屏蔽CTRL+ALT+DEL。三、安装和注意事项：在编写GIAN DLL中要注意，GINA DLL使用的是unicode。GINA DLL的安装：键名 : _LOCAL_MACHINENT变量名 : GinaDLL变量类型 : [REG_SZ]内容 : "你的GINA DLL的名称" 如："NoReboot.DLL:将你的GINA DLL(NoReboot.dll)拷贝到系统目录下(system32),重启机器，你的GINA DLL(NoReboot.dll)就会运行。如果出现进不了你的系统，那你进入DOS后，将msgina.dll拷贝成你的GINA DLL(NoReboot.dll)就可进入了，或者进入安全模式，删除掉那个键值。　
      

  2.   

    http://www.delphibbs.com/delphibbs/dispq.asp?lid=1508354
      

  3.   

    我有可以work的Delphi代码，GINA的，XP下不能用
    URL http://www.iligia.com/public/download/tkhotkey/ligia_tkhotkey_source.rar
      

  4.   

    http://www.iligia.com/public/download/tkhotkey/ligia_tkhotkey_source.rar