传奇一条龙,复古传奇,GM基地,传奇服务端

 找回密码
 立即注册

QQ登录

只需一步,快速开始

网友自助信息发布区,请自行甄别

查看: 732|回复: 2

传奇3大补帖辅助1.76版Delphi开源代码

[复制链接]

624

帖子

2132

钻石

1355

积分

管理员

Rank: 9Rank: 9Rank: 9

在线时间
110 小时
发表于 2018-12-3 00:10:47 | 显示全部楼层 |阅读模式
传奇3大补帖辅助1.76版Delphi开源代码


unit Hook;

interface

uses Windows, Messages, Dialogs, Sysutils, PopWin;

var
  hNextHookProc: HHook;
  procSaveExit: Pointer;
function sethook: bool; export;
function hookproc(iCode: Integer; wParam: WPARAM; lParam: LPARAM):

LRESULT; stdcall;
function endhook: bool; export;
procedure HotKeyHookExit; far;

implementation

function HookProc(iCode: integer; wParam: wParam; lParam: lParam):

LResult; stdcall;
var
  hwnd: dword;
  AppRect: TRect;
  title: pchar;
begin
  result := 0;
  title := '';
  if iCode < 0 then
  begin
    CallNextHookEx(hnexthookproc, iCode, wParam, lParam);
    result := 0;
    Exit;
  end;
  if ((lParam and $80000000) = 0) and (wParam = $6A) then
  begin
    hwnd := getforegroundwindow;
    try
      GetMem(title, 255);
      getwindowtext(hwnd, title, 255);
      if title = 'Legend Of Mir 3' then
      begin
        try
          Messagebeep(0);
          FrmPopWin := TFrmPopWin.CreateParented(hwnd);
          GetWindowRect(hwnd, AppRect);
          FrmPopWin.Caption := title + ' 酷酷神仙制作';
          FrmPopWin.Show;
        finally
          //FrmPopWin.Free;
        end;
      end;
    finally
      FreeMem(title);
    end;
    result := 1;
  end;
end;

function sethook: bool; export;
begin
  result := false;
  if hnexthookproc <> 0 then
    exit;
  hNextHookProc := SetWindowsHookEx(WH_KEYBOARD, hookproc, HInstance, 0);
  Result := hNextHookProc <> 0;
end;

procedure hotkeyhookexit;
begin
  if hNextHookProc <> 0 then
    endHook;
  ExitProc := procSaveExit;
end;

function endhook: bool; export;
begin
  if hNextHookProc <> 0 then
  begin
    UnhookWindowshookEx(hNextHookProc); // 解除 Keyboard Hook
    hNextHookProc := 0;
  end;
  Result := hNextHookProc = 0;
end;

end.
游客,如果您要查看本帖隐藏内容请回复


回复

使用道具 举报

201

帖子

81

钻石

213

积分

中级GM

Rank: 2

在线时间
12 小时
发表于 2020-8-31 09:16:52 | 显示全部楼层
客户端和服务器C++工程使用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|85ji.com Inc.最大的GM论坛交流基地 ( 粤ICP备11015868号-18 ) 传奇私服 Array7.2 版权所有 © 八五论坛 Comsenz Inc.

快速回复 快速发帖 返回顶部 返回列表