屏闭2000/XP/2003系统的Ctrl+Alt+Del热键

最新推荐文章于 2024-10-30 22:31:58 发布

Earthnut

最新推荐文章于 2024-10-30 22:31:58 发布

阅读量654

点赞数

分类专栏： Delphi编程文章标签： dll integer windows library delete hook

Delphi编程专栏收录该内容

1 篇文章 0 订阅

订阅专栏

转:LYSoft Liu Yang

下面的方法适合任何Windows NT平台(4.0以上)(至少目前的WinNT都能支持)
NT4,2000,XP,2003全部OK的,而且没有窗口闪烁,呵呵,编译后的DLL才16K,好用得很的

别问我怎么Inject DLL到EXE呀,嘻嘻:)

元旦快乐,新年新气象~~~

library SASWinHook;

{
SASWinHook
copyrights by Liu Yang LYSoft http://lysoft.7u7.net 2006.1.1

usage: only need to inject this dll to WinLogon.exe
}

uses Windows, Messages;

{$R *.res}

var
FHandle: THandle;
OldAppProc: Pointer;

function HookProc(hHandle: THandle; uMsg: Cardinal;
wParam, lParam: Integer): LRESULT; stdcall;
var K, C: Word; // wndproc
begin
if uMsg = WM_HOTKEY then
     begin
        K := HIWORD(lParam);
        C := LOWORD(lParam);
        // press Ctrl + Alt + Del
        if (C and VK_CONTROL<>0) and (C and VK_MENU <>0) and ( K = VK_DELETE)
           then Exit;   // disable Ctrl + Alt + Del
     end;
Result := CallWindowProc(OldAppProc, hHandle,
    uMsg, wParam, lParam);
end;

procedure EntryPointProc(Reason: Integer);
begin
case reason of
    DLL_PROCESS_ATTACH:
      begin // hook SAS window wndproc
        FHandle := FindWindow('SAS window class', 'SAS window');
        if not IsWindow(FHandle) then Exit; // is window found?
        // save old wndproc
        OldAppProc := Pointer(GetWindowLong(FHandle, GWL_WNDPROC));
        // set new wndproc
        SetWindowLong(FHandle, GWL_WNDPROC, Cardinal(@HookProc));
      end;
    DLL_PROCESS_DETACH:
      begin
        if FHandle > 0 then
           begin // unhook
             if Assigned(OldAppProc) then
                SetWindowLong(FHandle, GWL_WNDPROC, LongInt(OldAppProc));
             OldAppProc := nil;
           end;
      end;
    end;
end;