runmain.cpp

visual C++的代码

//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//作者    ：黎富平
//网上呢称：聪聪
//Home Page  ：http://www.soft520.com
//E-Mail  ：[e-mail]
//日期    ：2004-8-23
//功能    ：根据BCB_FANS(四大名捕之追杀令)在2000下屏蔽Ctrl + Alt + Del组合键的
//          技术，在Borland C++Builder 6.0 Patch4下编写远程线程注入的代码，封装
//          成DLL并输出EnabledKey和DisabledKey两个函数，使得可以在Delphi,VB等程
//          中可以使用，本程序在Windows Server 2003中文版平台下面测试通过
//开发语言：Borland C++Builder 6.0 Patch4

//鸣谢    ：BCB_FANS(四大名捕之追杀令)
//版权    ：转载请注明原作者：）

//        ：以下为 BCB_FANS(四大名捕之追杀令)在2000下屏蔽Ctrl + Alt + Del组合键的
//          技术说明
//原理    ：采用远程线程注入技术，装载一个DLL到Winlogon进程，然后截获SAS窗口的窗
//          口过程，接管WM_HOTKEY消息，以达到屏蔽Ctrl + Alt + Del之目的。
//技术比较：关于在2000下面如何屏蔽Ctrl + Alt + Del组合键，一种常被提到的解决方法就
//	    是使用自己写的GINA去替换MSGINA.DLL，然后在WlxLoggedOnSAS里边直接返回
//	    WLX_SAS_ACTION_NONE。嘿嘿，说到底这并不是真正地屏蔽了这个组合键，只是
//	    直接返回WLX_SAS_ACTION_NONE时，Winlogon进程又自动从"Winlogon"桌面切换
//	    回原来的"Default"桌面了，而不是显示安全对话框，所以看起来被屏蔽了：），
//	    使用那种方法明显地看到桌面在闪烁！但是使用本文的方法时，你不会看到任
//	    何闪烁！

#include <vcl.h>
#pragma hdrstop

#include "RunMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
     hDLLInst = LoadLibrary("RunDLL.dll");        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if(hDLLInst)
        {
           EnabledKey=(_EnabledKey)GetProcAddress(hDLLInst, "EnabledKey");
           if(EnabledKey){
               DLLPath=ExtractFilePath(Application->ExeName) + "SASHOOK.dll";
               if (EnabledKey(DLLPath.c_str())) ShowMessage("成功屏蔽");
           }

        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   if(hDLLInst)
        {
           DisabledKey=(_EnabledKey)GetProcAddress(hDLLInst, "DisabledKey");
           if(DisabledKey){
               DLLPath=ExtractFilePath(Application->ExeName) + "SASHOOK.dll";
               if (DisabledKey(DLLPath.c_str()))
               ShowMessage("解除成功");
           }

        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    FreeLibrary(hDLLInst);        
}
//---------------------------------------------------------------------------