谁有屏幕取词的delphi源代码，我头发都急白了(800里加急),收到源码再送100分 (50分)

yfdciom · 2002-05-13

各位大哥，哪位有屏幕取词的delphi源代码，发到我的邮箱   swarmmail@163.net 小弟感激涕零。

yfdciom · 2002-05-13

收到邮件后根据代码质量再加100分，决不失言

byteh · 2002-05-13

Please read this: 屏幕抓词的技术实现       　　屏幕上的文字大都是由gdi32.dll的以下几个函数显示的：TextOutA、TextO utW、ExtTextOutA、 ExtTextOutW。实现屏幕抓词的关键就是截获对这些函数的调用，得到程序发给它 们的参数。     　　我的方法有以下三个步骤：     　　一、得到鼠标的当前位置     　　通过SetWindowsHookEx实现。     　　二、向鼠标下的窗口发重画消息，让它调用系统函数重画     　　通过WindowFromPoint，ScreenToClient，InvalidateRect 实现。     　　三、截获对系统函数的调用，取得参数(以TextOutA为例)     　　1.仿照TextOutA作成自己的函数MyTextOutA，与TextOutA有相同参数和返回 值，放在系统钩子所在 的DLL里。     　　SysFunc1=(DWORD)GetProcAddress(GetModuleHandle("gdi32.dll"),"TextO utA");     　　BOOL WINAPI MyTextOutA(HDC hdc, int nXStart, int nYStart, LPCSTR l pszString,int cbString)     　　{ //输出lpszString的处理     return ((FARPROC)SysFunc1)(hdc,nXStart,nYStart,lpszString,cbString);}   　　2.由于系统鼠标钩子已经完成注入其它GUI进程的工作，我们不需要为注入再 做工作。     　　如果你知道所有系统钩子的函数必须要在动态库里，就不会对“注入”感到 奇怪。当进程隐式或显式 调用一个动态库里的函数时，系统都要把这个动态库映射到这个进程的虚拟地址 空间里(以下简称“地址空 间”)。这使得DLL成为进程的一部分，以这个进程的身份执行，使用这个进程的 堆栈(见图1)。         　　图1 DLL映射到虚拟地址空间中     　　对系统钩子来说，系统自动将包含“钩子回调函数”的DLL映射到受钩子函数 影响的所有进程的地址 空间中，即将这个DLL注入了那些进程。     　　3.当包含钩子的DLL注入其它进程后，寻找映射到这个进程虚拟内存里的各个 模块（EXE和DLL）的 基地址。EXE和DLL被映射到虚拟内存空间的什么地方是由它们的基地址决定的。 它们的基地址是在链接 时由链接器决定的。当你新建一个Win32工程时，VC＋＋链接器使用缺省的基地址 0x00400000。可以通 过链接器的BASE选项改变模块的基地址。EXE通常被映射到虚拟内存的0x0040000 0处，DLL也随之有 不同的基地址，通常被映射到不同进程的相同的虚拟地址空间处。     　　如何知道EXE和DLL被映射到哪里了呢？     　　在Win32中，HMODULE和HINSTANCE是相同的。它们就是相应模块被装入进程的 虚拟内存空间的 基地址。比如：     　　HMODULE hmodule=GetModuleHandle(″gdi32.dll″);     　　返回的模块句柄强制转换为指针后，就是gdi32.dll被装入的基地址。     　　关于如何找到虚拟内存空间映射了哪些DLL？我用如下方式实现：     while(VirtualQuery (base, ＆mbi, sizeof (mbi))〉0)     { if(mbi.Type==MEM—IMAGE)     ChangeFuncEntry((DWORD)mbi.BaseAddress,1);     base=(DWORD)mbi.BaseAddress＋mbi.RegionSize; }     　　4.得到模块的基地址后，根据PE文件的格式穷举这个模块的IMAGE—IMPORT— DESCRIPTOR数组， 看是否引入了gdi32.dll。如是，则穷举IMAGE—THUNK—DATA数组，看是否引入了 TextOutA函数。     　　5.如果找到，将其替换为相应的自己的函数。     　　系统将EXE和DLL原封不动映射到虚拟内存空间中，它们在内存中的结构与磁 盘上的静态文件结构 是一样的。即PE (Portable Executable) 文件格式。     　　所有对给定API函数的调用总是通过可执行文件的同一个地方转移。那就是一 个模块(可以是EXE或 DLL)的输入地址表(import address table)。那里有所有本模块调用的其它DLL的 函数名及地址。对其它DLL 的函数调用实际上只是跳转到输入地址表，由输入地址表再跳转到DLL真正的函数 入口。例如：         　　图2 对MessageBox()的调用跳转到输入地址表，从输入地址表再跳转到Mess ageBox函数         　　IMAGE—IMPORT—DESCRIPTOR和IMAGE—THUNK—DATA分别对应于DLL和函数。 它们是PE 文件的输入地址表的格式（数据结构参见winnt.h）。     　　BOOL ChangeFuncEntry(HMODULE hmodule)     　　{ PIMAGE—DOS—HEADER pDOSHeader;     　　PIMAGE—NT—HEADERS pNTHeader;     　　PIMAGE—IMPORT—DESCRIPTOR pImportDesc;     /?get system functions and my functions′entry?/     　　pSysFunc1=(DWORD)GetProcAddress(GetModuleHandle(″gdi32.dll″),″T extOutA″);     　　pMyFunc1= (DWORD)GetProcAddress(GetModuleHandle(″hookdll.dll″),″ MyTextOutA″);     pDOSHeader=(PIMAGE—DOS—HEADER)hmodule;     　　if (IsBadReadPtr(hmodule, sizeof(PIMAGE—NT—HEADERS)))     　　 return FALSE;     　　if (pDOSHeader－〉e—magic != IMAGE—DOS—SIGNATURE)     　　 return FALSE;     　　pNTHeader=(PIMAGE—NT—HEADERS)((DWORD)pDOSHeader＋(DWORD)pDOSHead er－〉e— lfanew);     　　if (pNTHeader－)Signature != IMAGE—NT—SIGNATURE)     　　 return FALSE;     　　pImportDesc = (PIMAGE—IMPORT—DESCRIPTOR)((DWORD)hmodule＋(DWORD) pNTHeader －)OptionalHeader.DataDirectory     　　 [IMAGE—DIRECTORY—ENTRY—IMPORT].VirtualAddress);     　　if (pImportDesc == (PIMAGE—IMPORT—DESCRIPTOR)pNTHeader)     return FALSE;     　　while (pImportDesc－)Name)     　　{ PIMAGE—THUNK—DATA pThunk;     　　strcpy(buffer,(char?)((DWORD)hmodule＋(DWORD)pImportDesc－)Name)) ;     CharLower(buffer);     if(strcmp(buffer,"gdi32.dll"))     { pImportDesc＋＋;     continue;     }else     { pThunk=(PIMAGE—THUNK—DATA)((DWORD)hmodule＋(DWORD)pImportDesc－)Fi rstThunk);     while (pThunk－)u1.Function)     { if ((pThunk－)u1.Function) == pSysFunc1)     { VirtualProtect((LPVOID)(＆pThunk－)u1.Function),     　　 sizeof(DWORD),PAGE—EXECUTE—READWRITE, ＆dwProtect);     　　 (pThunk－)u1.Function)=pMyFunc1;     　　 VirtualProtect((LPVOID)(＆pThunk－)u1.Function), sizeof(DWORD),dw Protect,＆temp); }     pThunk＋＋; } return 1;}}}     　　替换了输入地址表中TextOutA的入口为MyTextOutA后，截获系统函数调用的 主要部分已经完成，当 一个被注入进程调用TextOutA时，其实调用的是MyTextOutA，只需在MyTextOutA 中显示传进来的字符 串，再交给TextOutA处理即可。 网易虚拟社区北京站 http://bj.netease.com

盛利 · 2002-05-13

马飞涛有

IamWLJ888 · 2002-05-14

http://delphi.mychangshu.com/  中搜索“取词”, 但是是C的，可参考一下嘛。

yfdciom · 2002-05-14

不要告诉我哪有下载的地址，把源码mail to me，货到给分。 马飞涛不提供源码

fpsky · 2002-05-14

大富翁论坛版权所有  问题：求Delphi版屏幕取词源代码，200分 ( 积分：200, 回复：4, 阅读：21 ) 分类：Windows API ( 版主：amo, cAkk )   来自：fevath, 时间：2002-3-22 3:13:00, ID：996179 [显示：小字体 | 大字体]   要那个截获TextOut的，要能工作的。 将截获的字（单个汉字）同时显示在调用程序的标题栏上即可（或者动态链接库自己处理， 显示在鼠标下方更好，如果这样我在加50分）     来自：zhihuali, 时间：2002-3-22 3:40:00, ID：996181 转载： －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 1、添加form，在上面添加一个richedit，名字叫rich1 2、在form的onload事件中往rich1里面随便添加一段文字做测试用： procedure TForm1.FormCreate(Sender: TObject); begin   rich1.Lines.Add('cAkk is a good boy'); end; 3、定义rich1的onmousemove事件： procedure TForm1.rich1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); var txt:String; begin   txt:= RichWordOver(rich1, X, Y);   //截词结果显示在form的caption上   If Caption <> txt Then      Caption:= txt; end; 4、定义函数RichWordOver Function TForm1.RichWordOver(rch:trichedit; X,Y:integer):string; var pt:tpoint;     pos,     start_pos,     end_pos:Integer;     ch,txt:String;     txtlen:Integer; begin     pt.X:= X;     pt.Y:= Y;     pos:=rch.Perform(EM_CHARFROMPOS, 0, longint(@pt));     If pos <= 0 Then Exit;     txt:= rch.Text;     For start_pos:= pos downTo 1 do     begin         ch:=copy(rch.text,start_pos, 1);         If Not (             ( (ch >= '0') And (ch <= '9') ) Or             ( (ch >= 'a') And (ch <= 'z') ) Or             ( (ch >= 'A') And (ch <= 'Z') ) Or             (ch = '_')         ) Then break;     end;     inc(start_pos);     txtlen:= Length(txt);     For end_pos:= pos To txtlen do     begin         ch:= copy(txt, end_pos, 1);         If Not (             ( (ch >= '0') And (ch <= '9') ) Or             ( (ch >= 'a') And (ch <= 'z') ) Or             ( (ch >= 'A') And (ch <= 'Z') ) Or             (ch = '_')         ) Then break;     end;     dec(end_pos);     If start_pos <= end_pos Then         result:=copy(txt, start_pos, end_pos - start_pos + 1); End;     来自：fevath, 时间：2002-3-22 7:16:00, ID：996197 那么取非客户区的文字呢，我要监控整个系统，HOOK我已经做好了，只是不知道如何截获 TEXTOUT并获得其参数。不好意思ZhiHuaLi我想可能是我的问题问的可能不太清楚……     来自：jrq, 时间：2002-3-22 8:09:00, ID：996224 >>HOOK我已经做好了 你可以将钩子编译为DLL～ 下面是一个取词的源码：－－转载  [

][

] 这是dll文件： library dll_HookMouse; uses   SysUtils,   Windows,   Classes,   Messages,   Math,   Dialogs,   U_Def in 'U_Def.pas'; {$R *.RES} var   hMouseHook : HHOOK;   SpyInstalled : Boolean;   fTimerID : Cardinal;   pShMem : PShareMem;   hMappingFile : THandle; function InstallSpy:Boolean; forward; function UnWiseSpy:Boolean; forward; function fExtTextOutA(theDC :HDC; nXStart, nYStart :integer; toOptions : Lon gint; rect : PRect;                       lpStr

AnsiChar; nCount :Longint; Dx: PInteger):BOOL;  stdcall; var   dwBytes, dwCallingProc : DWORD;   pOldExtTextOut : _ExtTextOutA;   hModuleGDI : THandle;   poOri, poDC, poText, poMouse : TPoint;   Size : TSize; begin   UnWiseSpy;   GetWindowThreadProcessID(pShMem^.hHookWnd, @dwCallingProc);   try     if pShMem^.bCanSpyNow and (dwCallingProc <> pShMem^.hProc) then     begin       dwBytes := Min(nCount, MaxStringLen);       CopyMemory(@(pShMem^.fStrExtTextOutA), lpStr, dwBytes);       //Get lpStr Content       //The following codes for get the right text       GetDCOrgEx(theDC, poOri);       // 取得本窗口设备相关坐标原点的全局逻辑坐标       poDC.x := nXStart;       poDC.y := nYStart;       //       LPToDP(theDC, poDC, 1);       //全局逻辑坐标转化为设备相关坐标       GetCursorPos(poMouse);       poText.x := poDC.x + poOri.x;       poText.y := poDC.y + poOri.y;       if (GetTextAlign(theDC) and TA_UPDATECP) <> 0 then       begin         GetCurrentPositionEx(theDC, @poOri);         poText.x := poText.x + poOri.x;         poText.y := poText.y + poOri.y;       end;       GetTextExtentPoint(theDC, lpStr, nCount, Size);       // 取得要输出的字符串的实际显示大小       if (poMouse.x >= poText.x) and (poMouse.x <= poText.x + Size.cx) and          (poMouse.y >= poText.y) and (poMouse.y <= poText.y + Size.cy) then       begin         pShMem^.bCanSpyNow := False;         pShMem^.nTimePassed := -1;       end;       pShMem^.fStrExtTextOutA[dwBytes] := Chr(0);       FlushViewOfFile(pShMem, 0);       if dwCallingProc <> pShMem^.hProc then         PostMessage(pShMem^.hProcWnd, WM_MOUSEPT, 2, 2);     end;     if (dwCallingProc = pShMem^.hProc) or pShMem^.bHookExtTextOutA then     begin       hModuleGDI := GetModuleHandle(PChar('GDI32'));       @pOldExtTextOut := GetProcAddress(hModuleGDI, PChar('ExtTextOutA'));       Result := pOldExtTextOut(theDC, nXStart, nYStart, toOptions, rect, lpS tr, nCount, Dx);     end else       Result := True;   except     Result := False;   end;   SpyInstalled := True;   InstallSpy; end; function UnWiseSpy:Boolean; var   dwBytesWritten, dwOldProtect : DWORD;   pOldExtTextOut : _ExtTextOutA;   hModuleGDI : THandle; begin   hModuleGDI := GetModuleHandle(PChar('GDI32'));   @pOldExtTextOut := GetProcAddress(hModuleGDI, PChar('ExtTextOutA'));   if not VirtualProtect(@pOldExtTextOut, SizeOf(TLongJump), PAGE_EXECUTE_REA DWRITE, @dwOldProtect) then   begin     Result := False;     Exit;   end;   if not WriteProcessMemory(GetCurrentProcess, @pOldExtTextOut, @pShMem^.pOl dExtTextOutA, SizeOf(TLongJump), dwBytesWritten) then   begin     Result := False;     Exit;   end;   if not VirtualProtect(@pOldExtTextOut, SizeOf(TLongJump), dwOldProtect, @d wBytesWritten) then   begin     Result := False;     Exit;   end;   Result := True; end; function InstallSpy:Boolean; var   dwBytesWritten, dwOldProtect : DWORD;   ljHere : TLongJump;   pOldExtTextOut : _ExtTextOutA;   hModuleGDI : THandle; begin   hModuleGDI := GetModuleHandle(PChar('GDI32'));   @pOldExtTextOut := GetProcAddress(hModuleGDI, PChar('ExtTextOutA'));   if not VirtualProtect(@pOldExtTextOut, SizeOf(TLongJump), PAGE_EXECUTE_REA DWRITE, @dwOldProtect) then   begin     Result := False;     Exit;   end;   ljHere.JmpOp := CodeJump;   ljHere.Addr := Pointer( Cardinal(@fExtTextOutA) - Cardinal(@pOldExtTextOut ) - SizeOf(TLongJump) );   if not WriteProcessMemory(GetCurrentProcess, @pOldExtTextOut, @ljHere, Siz eOf(TLongJump), dwBytesWritten) then   begin     Result := False;     Exit;   end;   if not VirtualProtect(@pOldExtTextOut, SizeOf(TLongJump), dwOldProtect, @d wBytesWritten) then   begin     Result := False;     Exit;   end;   Result := True; end; function MouseHookProc(nCode : integer; wPar : WParam; lPar : LParam) : lRes ult; stdcall; var   pMouseInf : TMouseHookStruct; begin   if (not SpyInstalled) and pShMem^.bHookExtTextOutA then     InstallSpy;   if SpyInstalled and (not pShMem^.bHookExtTextOutA) then   begin     UnwiseSpy;     SpyInstalled := False;   end;   pShMem^.nTimePassed := 0 ;   if (nCode >= 0) and (wPar = WM_MOUSEMOVE) then   begin     pMouseInf := (PMouseHookStruct(lPar))^;     if (pShMem^.pMouse.x <> pMouseInf.pt.x) or        (pShMem^.pMouse.y <> pMouseInf.pt.y) then     begin       if nCode = HC_NOREMOVE then         pShMem^.fStrMouseQueue := 'Not removed from the queue'       else                                //then HC_ACTION         pShMem^.fStrMouseQueue := 'Removed from the queue';       pShMem^.pMouse := pMouseInf.pt;       pShMem^.hHookWnd := pMouseInf.hwnd;       PostMessage(pShMem^.hProcWnd, WM_MOUSEPT, 1, 1); //1 indicates mouse m essage     end;   end;   FlushViewOfFile(pShMem, 0);   Result := CallNextHookEx(hMouseHook, nCode, wPar, lPar); end; procedure fOnTimer(theWnd : HWND; msg, idTimer : Cardinal; dwTime : DWORD);f ar pascal; //CallBack Type begin   if pShMem^.nTimePassed = -1 then     Exit;   pShMem^.nTimePassed := pShMem^.nTimePassed + 1;   if pShMem^.nTimePassed > 21 then   begin     pShMem^.nTimePassed := 21;     FlushViewOfFile(pShMem, 0);     Exit;   end;   if pShMem^.nTimePassed > 20 then   begin     pShMem^.bCanSpyNow := True;     FlushViewOfFile(pShMem, 0);     SetWindowPos(pShMem^.hWndPseudo, HWND_TOPMOST, pShMem^.pMouse.x, pShMem^ .pMouse.y, 1, 8, SWP_NOACTIVATE or SWP_SHOWWINDOW);     ShowWindow(pShMem^.hWndPseudo , SW_HIDE);   end; end; function MouseWndProc(theWnd : HWND; theMess : Cardinal; wPar : wParam; lPar  : lParam): LResult;stdcall; begin   case theMess of     WM_CLOSE :             begin                DestroyWindow(theWnd);                PostQuitMessage(0);             end;     else          begin            Result := DefWindowProc(theWnd, theMess, wPar, lPar);            Exit;          end;   end;   Result := 0; end; function InstallMouseHook(hInst : LongWord):Boolean; begin   hMouseHook := SetWindowsHookEx(WH_MOUSE,                                  MouseHookProc,                                  GetModuleHandle(PChar('dll_HookMouse')),                                  0);   if hMouseHook = 0 then   begin     Result := False;     Exit;   end;   pShMem^.hWndPseudo := CreateWindowEx(WS_EX_TOPMOST or WS_EX_TOOLWINDOW,                                        'ZL_MOUSE_WND_PSEUDO',                                        'ZL_MOUSE_WND_PSEUDO',                                        WS_CLIPSIBLINGS or WS_POPUP ,                                        0, 0, 1, 8,                                        0, 0,                                        hInst,                                        nil);   ShowWindow(pShMem^.hWndPseudo, SW_HIDE);   UpdateWindow(pShMem^.hWndPseudo);   fTimerID := SetTimer(0, 0, 10, @fOnTimer);   FlushViewOfFile(pShMem, 0);   Result := True; end; function UnWiseMouseHook:Boolean; begin   KillTimer(0, fTimerID);   DestroyWindow(pShMem^.hWndPseudo);   if SpyInstalled then     UnWiseSpy;   pShMem^.bHookExtTextOutA := False;   FlushViewOfFile(pShMem, 0);   Result := UnHookWindowsHookEx(hMouseHook); end; procedure DllEntry(nReason : integer); begin   case nReason Of     DLL_PROCESS_ATTACH:       begin         hMappingFile := CreateFileMapping($FFFFFFFF,                                           nil,                                           PAGE_READWRITE,                                           0,                                           SizeOf(TShareMem),                                           PChar(MappingFileName));         if hMappingFile<>0 then //if h..=0 , the work is done by OS         begin           pShMem := PShareMem( MapViewOfFile(hMappingFile,                                              FILE_MAP_WRITE,                                              0, //hi_order offset where mapp ing begins                                              0, //lo_order offset where mapp ing begins                                              0) ); //Size of the mapping           if pShMem = nil then           begin             CloseHandle(hMappingFile);             ShowMessage('Cannot create the Share Memory Block!');           end;         end else           ShowMessage('Cannot create the Share Memory Block!');       end;     DLL_PROCESS_DETACH:       begin         UnwiseSpy;         UnMapViewOfFile(pShMem);         CloseHandle(hMappingFile);       end;     else;   end; end; exports   MouseWndProc,   InstallMouseHook,   UnWiseMouseHook; begin   DllProc := @DllEntry;   DllEntry(DLL_PROCESS_ATTACH); end. －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 下面是dll的接口文件： unit U_Def; interface uses   Messages, Windows; const   WM_MOUSEPT = WM_USER + 1000 + Ord('M') + Ord('P') + Ord('T');   MappingFileName = 'Mapping File By Raphael';   MaxStringLen = 50;   CodeJump = $E9909090; type   PInt = ^integer;   _ExtTextOutA = function (theDC :HDC; nXStart, nYStart :integer; toOptions : Longint; rect : PRect;                            lpStr

AnsiChar; nCount :integer; Dx : PInteger) :BOOL; stdcall;   _PExtTextOutA = ^_ExtTextOutA;   TLongJump = packed record     JmpOp : Cardinal;     Addr : Pointer;   end;   TShareMem = packed record     hProcWnd : HWND;           //The main window of the program     hHookWnd : HWND;           //The window currently being hooked     hWndPseudo : HWND;         //The pseudo window used to repaint the other  window     hProc : THandle;           //The process ID of the main program     pMouse : TPoint;           //the mouse position     fStrMouseQueue : array [0..MaxStringLen] of Char; //mouse info     nTimePassed : integer;     //the time passed since last time's mousemove     bCanSpyNow : Boolean;     bHookExtTextOutA : Boolean;     pOldExtTextOutA : TLongJump;     fStrExtTextOutA : array [0..MaxStringLen] of Char;   end;   PShareMem = ^TShareMem; implementation end. －－－－－－－－－－－－－－－－－－－－ 下面是主窗体文件： unit U_MouseHook; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, U_Def; type   TF_MouseHook = class(TForm)     Label1: TLabel;     e_MouseInfo: TEdit;     btn_HookMouse: TButton;     Label2: TLabel;     e_ExtTextOutA: TEdit;     btn_HookExtTextOutA: TButton;     procedure btn_HookMouseClick(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure btn_HookExtTextOutAClick(Sender: TObject);   private     fWndClosed, fbMouseHookInstalled : Boolean;     hMapObj : THandle;     pShMem : PShareMem;     procedure getMouseInfo(var theMess:TMessage); message WM_MOUSEPT;   public     { Public declarations }   end; function InstallMouseHook(hInst : LongWord) : Boolean; external 'dll_HookMouse.dll'; function UnWiseMouseHook : Boolean; external 'dll_HookMouse.dll'; function MouseWndProc(theWnd : HWND; theMess : Cardinal; wPar : wParam; lPar : lParam): LResult; stdcall; external 'dll_HookMouse.dll'; var   F_MouseHook: TF_MouseHook; implementation {$R *.DFM} procedure TF_MouseHook.btn_HookMouseClick(Sender: TObject); begin   if not fbMouseHookInstalled then   begin     fbMouseHookInstalled := InstallMouseHook(hInstance);     if fbMouseHookInstalled then     begin       btn_HookMouse.Caption := 'Stop!';       btn_HookExtTextOutA.Enabled := True;     end  else       ShowMessage('Cannot hook mouse!');   end else   begin     fbMouseHookInstalled := not UnWiseMouseHook;     if not fbMouseHookInstalled then     begin       btn_HookMouse.Caption := 'Hook Mouse';       btn_HookExtTextOutA.Enabled := False;       btn_HookExtTextOutA.Caption := 'Hook ExtTextOutA';       pShMem^.bHookExtTextOutA := False;       FlushViewOfFile(pShMem, 0);     end else       ShowMessage('Cannot unhook mouse!');   end; end; procedure TF_MouseHook.getMouseInfo(var theMess : TMessage); begin   if fWndClosed then     Exit;   if theMess.LParam = 1 then //Get the Mouse info to display     e_MouseInfo.Text := 'X:' + IntToStr(pShMem^.pMouse.x) + ' ' +                         'Y:' + IntToStr(pShMem^.pMouse.y) + ' ' +                         'HWND:0x' + IntToHex(pShMem^.hHookWnd, 8) + ' ' +                         pShMem^.fStrMouseQueue   else if theMess.LParam = 2 then //Get the ExtTextOutA display     e_ExtTextOutA.Text := pShMem^.fStrExtTextOutA; end; procedure TF_MouseHook.FormCreate(Sender: TObject); var   hModuleGDI : THandle;   wc : TWndClass; begin   hMapObj := OpenFileMapping(FILE_MAP_WRITE,     //Get full access of the mapping file                              False,              //Not inheritable                              LPCTSTR(MappingFileName));   //Name of the mapping file   if hMapObj = 0 then   begin     ShowMessage('Cannot locate the Share Memory Block!');     Halt;   end;   pShMem := PShareMem( MapViewOfFile(hMapObj,                                      FILE_MAP_WRITE,                                      0, //hi_order offset where mapping begins                                      0, //lo_order offset where mapping begins                                      0) ); //Size of the mapping   if pShMem = nil then   begin     ShowMessage('Map File Mapping Failed! Error '+ IntToStr(GetLastError));     CloseHandle(hMapObj);     Halt;   end;   FillChar(pShMem^, SizeOf(TShareMem), 0);   hModuleGDI := GetModuleHandle(PChar('GDI32'));   if hModuleGDI = 0 then   begin     ShowMessage('Cannot get module GDI32! Error ' + IntToStr(GetLastError));     UnmapViewOfFile(pShMem);     CloseHandle(hMapObj);     Halt;   end;   CopyMemory(@pShMem^.pOldExtTextOutA, GetProcAddress(hModuleGDI, PChar('ExtTextOutA')), SizeOf(TLongJump));   pShMem^.hProcWnd := Self.Handle;   GetWindowThreadProcessID(Self.Handle, @pShMem^.hProc);   pShMem^.bHookExtTextOutA := False;   pShMem^.bCanSpyNow := False;   fbMouseHookInstalled := False;   FlushViewOfFile(pShMem, 0);   wc.style         := 0;   wc.lpfnWndProc   := TFNWndProc(@MouseWndProc);   wc.cbClsExtra    := 0;   wc.cbWndExtra    := 0;   wc.hInstance     := HInstance;   wc.hIcon         := 0 ;   wc.hCursor       := 0 ;   wc.hbrBackground := 0 ;   wc.lpszMenuName  := nil;   wc.lpszClassName := 'ZL_MOUSE_WND_PSEUDO';   // register the class for the main window   Windows.RegisterClass(wc);   fWndClosed := False; end; procedure TF_MouseHook.FormClose(Sender: TObject;   var Action: TCloseAction); begin   if fbMouseHookInstalled then     UnWiseMouseHook;   UnMapViewOfFile(pShMem);   CloseHandle(hMapObj);   Windows.UnRegisterClass('ZL_MOUSE_WND_PSEUDO', hInstance);   fWndClosed := True; end; procedure TF_MouseHook.btn_HookExtTextOutAClick(Sender: TObject); begin   if pShMem^.bHookExtTextOutA then     btn_HookExtTextOutA.Caption := 'Hook ExtTextOutA'   else     btn_HookExtTextOutA.Caption := 'Stop!';   pShMem^.bHookExtTextOutA := not pShMem^.bHookExtTextOutA;   FlushViewOfFile(pShMem, 0); end; //RaiseLastWin32Error can be used to create a GetLastError //Message end. －－－－－－－－－－－－－－－－－－－－－－－－－－－ 我做的时候分析了一下，主要用了ExtTextOutA这个API。   可以取词！       来自：jrq, 时间：2002-3-22 8:37:00, ID：996282 [

] 屏幕抓字技术揭密(转载) 屏幕抓字技术揭密 ----------深入WINDOWS内部探险手记 郑州马飞涛 一公开它！ 四通利方和金山词霸的用户都曾见识过屏幕抓字技术，鼠标指哪就翻译哪个 单 词，这个技术看似简单，其实在WINDOWS系统中实现却是非常复杂和有趣的。经 过 半年多的艰辛探索，笔者终于破解了其中的秘密，并在今天决定公开它，这个人 人 都曾见过但是却鲜有人知的秘密，这个只被几家软件公司垄断从未在公开的报刊 资 料披露过只言片语的秘密！ 回想这半年多的探索，其中浸润了多少笔者的苦闷与欢乐，绝望与兴奋，挫 折 与收获，现在都终于有了结果：将屏幕抓字技术的秘密公开，献给孜孜不倦辛勤 工 作的程序员们。如果这样做能为国产软件事业的发展效微薄之力，对笔者来说， 也 是一桩快事！ 二初识屏幕抓字 最初知道屏幕抓字，是在购买了〖英汉通〗软件之后。当时笔者还只是一 个 VISUAL BASIC 的初学者，对 WINDOWS 系统内部的知识了解并不多，认为 在 WINDOWS系统中屏幕抓字的实现应该和DOS系统中的一样，调用一个DOS 中断取屏 幕 上的字符或直接读显示内存的内容就可以了。 三看似很简单，其实不然 随着对WINDOWS系统的认识不断深入，才发现问题并不象想得那么简单。首先， 翻阅了WINODWS应用程序接口（API）中的上千个函数，并没有发现有一个现成的 类 似于getWordFromPoint()的函数；根据使用经验，经过判断发现屏幕抓字采用的 也 不是图像识别技术；翻阅了SDK的联机文档中没有，DDK的联机文档中也没有；显 示 卡编程接口的资料则很难获得，有的也只是CGA到VGA显存的基本知识。回想当时 坐 在机子前，面对一屏屏的联机资料（如果是纸，将堆积如山），感觉就是在黑暗 中 的大海里航行，没有方向，没有灯光，但强烈的兴趣紧抓着我，一定要把这个谜 解 开。 四选择合适的编程工具 突然又有了一些新的想法: 可否试着截获WINDOWS中关于字符的消息呢？ DC（设备描述表）到底是什么？ WINDOWS的TextOut函数是否将TEXT放在DC的某个单元中？ 显然，用VISUAL BASIC就力不从心了。在DOS中用TURBO C编程笔者还算熟练 ， 因此先尝试用VISUAL C++，但是奇慢的编译速度使人难以忍受，高度抽象的类 让 人一头雾水，开发商务软件可能还行，但开发这样一个深入WINDOWS 内部的系统 软 件，望着一堆缠绕不清的类和消息，真有点牛刀宰鸡、刺刀耕田的感觉。 最后选择了DELPHI，第一印象是编译速度真快，在我的祖父型386 机子上 编 译一个WINDOWS程序，速度和用TURBO C的速度感觉差不多，真让人兴奋得爱不释手。 随着不断使用，发觉DELPHI真是一个好的快速开发工具，（快速并不意味着简单 粗 糙，而是和WINDOWS系统有混然一体良好接口的表现）让初学者也很容易上手。 调 用各种WINDOWS 函数（包括很多未公开的函数）都非常直接迅速，用它来作开发 工 具，大有刺刀见红、一剑封喉的痛快感觉。 五山穷水尽疑无路 随着对WINDOWS系统了解的深入，我逐渐明白了在向屏幕输出文字时，WINDO WS 系统仅仅只是对某个应用程序发送WM_PAINT消息，告诉该应用程序窗口用户区已 经 “无效”而需要重画。具体的“绘制”工作（选择字体，颜色，文字）由应用程 序 完成。 应用程序在处理WM_PAINT消息时，调用BeginPaint和EndPaint来获得和释放 设 备描述表，调用DrawText、ExtTextOut、 TextOut等函数在设备描述表中“绘制 ” 文字。 应用程序“绘制”文字，就象学生（应用程序）奉命（获得 WM_PAINT消息 ) 用老师（WINDOWS)提供的画笔(DrawText ExtTextOut TextOut等) 在黑板上画 画 一样，虽然大家能看到画的是什么字，但是画笔作为绘图工具并不知道画的是什 么。 老师（WINDOWS）不知道学生（应用程序）到底用什么字体，颜色，画哪些文字。 　　总之，WINDOWS并不知道应用程序“绘制”的是什么。“文字”对 WINDO WS 来说只是画笔留在黑板（屏幕）上的粉笔印，只是绘画的痕迹。“文字”只存在 于 应用程序的模块中，对WINDOWS系统是“不可见”的。 到处走投无路，真想掂5000块钱，跑到“英汉通”公司买回这个秘密。仔细 一 想，钱太少，就是多掂１０倍，人家也不一定说。 六柳暗花明又一村 经过再三考虑，我联想到在DOS系统中编程，会采取改变中断向量地址，设 置 新的中断向量的技术：如果系统调用这个中断，就会先进入新的中断服务程序， 然 后再调用原来的中断服务程序。 那末，在WINDOWS系统中也采取这种技术，使系统如果调用某个函数，先进 入 一个跟踪函数，取得原函数的参数，再调用原来的函数。听起来是否象病毒传染 和 发作？其实很多程序都采用过类似技术。大学毕业设计声卡时我就用过。 至此，我认识到应该放弃常规的思路，采取一些技巧，截获 TextOut 、 ExtTextOut等函数，使之转向我的跟踪函数，在此查看应用程序（学生）的堆栈 中 传递给画笔（TextOut、ExtTextOut等函数）的参数，从而获得应用程序要在屏 幕 上写的“文字”。 七　“ 屏幕抓字”的实现 １用SetWindowsHookEx()安装鼠标钩子MouseProc； ２在屏幕上移动鼠标时，系统就会调用鼠标钩子MouseProc； ３进入MouseProc，获得鼠标的坐标（x,y)， 设置对TextOut()、ExtTextOut()等的跟踪程序， 用invalidateRect()告诉系统该点(x,y)“失效”； ４ 系统发出WM_PAINT消息，指示该点（x,y)处的应用程序重绘“失效”的区域。 ５负责绘制该点（）的应用程序在受到 WM_PAINT 消息后，就有机会调用 TextOut()、 ExtTextOut()等函数。 ６调用的函数被拦截进入跟踪程序：设置好了的跟踪程序截获了该次调用， 从 应用程序的堆栈中取出该点（x,y）“文字”的指针； ７从应用程序的数据段中将“文字”指针的内容取出，即完成了一次“屏幕 抓 字”； ８退出跟踪程序，返回到鼠标钩子MouseProc； ９在MouseProc中解除对TextOut() ExtTextOut()的跟踪； １０退出MouseProc鼠标钩子程序，控制权交给系统。 １１在屏幕上移动鼠标，开始下一次“屏幕抓字”，返回步骤２。 八前景展望 掌握了“屏幕抓字”的技术秘密，稍加改变，我们就可对WINDOWS 系统中 的 任意一个函数调用进行动态地拦截、跟踪、修改和恢复，就可让WINDOWS 系统中 的 任意一个函数按我们的设想工作，就可构造自己的外挂汉字平台，设计改变字体 的 放大镜、改变颜色的变色镜，保护视力的软件视保屏等等。 九后记 希望此文能抛砖引玉，为大家编程时能找到捷径，开拓出新的思路； 对拦截、跟踪感兴趣的朋友也请来信交流切磋，如需DLL 或“抓字”的源 代码，敬请与 mafeitao@371.net 联系； 如能得到“四通利方”、“金山词霸”、“英汉通”等公司的教导与指正， 笔者不胜感激。

PFans · 2002-05-14

//可以取TMemo里的单词 function IsSeparetor(ch:char):boolean; function GetWord(pos:word):string; function TForm1.GetWord(pos: word): string; var   st:string;   pos1,pos2:word;   i:longint;   w:string; begin   w:='';   pos1:=1;   getword:='';   st:=Memo1.lines.Text;   pos2:=length(st);   for i:=pos-1 downto 1 do     if IsSeparetor(st) then       begin         pos1:=i+1;         break       end;   for i:=pos to pos2 do     if IsSeparetor(st) then       begin         pos2:=i-1;         break;       end;   if pos1<=pos2 then     begin       for i:=pos1 to pos2 do         w:=w+st;         GetWord:='单词'+w;     end; end; function TForm1.IsSeparetor(ch: char): boolean; begin   IsSeparetor:=false;   if ch in [' ',',','.','?',#10,#13] then     IsSeparetor:=true end; procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); var   lc:longint;   CharPos:word; begin   lc:=SendMessage(Memo1.Handle,EM_CHARFROMPOS,0,x+(y shl 16));   charpos:=word(lc);   Memo1.Hint:=GetWord(charpos); end;

mckz · 2002-05-14

鼠标屏幕取词技术的原理和实现                                               白瑜    “鼠标屏幕取词”技术是在电子字典中得到广泛地应用的，如四通利方和金山 词霸等软件，这个技术看似简单，其实在windows系统中实现却是非常复杂的，总 的来说有两种实现方式：     第一种：采用截获对部分gdi的api调用来实现,如textout,textouta等。     第二种：对每个设备上下文(dc)做一分copy,并跟踪所有修改上下文(dc)的 操作。           第二种方法更强大,但兼容性不好，而第一种方法使用的截获windowsapi的 调用，这项技术的强大可能远远超出了您的想象，毫不夸张的说，利用windowsapi 拦截技术，你可以改造整个操作系统，事实上很多外挂式windows中文平台就是 这么实现的！而这项技术也正是这篇文章的主题。     截windowsapi的调用，具体的说来也可以分为两种方法：     第一种方法通过直接改写winapi 在内存中的映像，嵌入汇编代码，使之被 调用时跳转到指定的地址运行来截获；第二种方法则改写iat（import address table  输入地址表），重定向winapi函数的调用来实现对winapi的截获。     第一种方法的实现较为繁琐，而且在win95、98下面更有难度，这是因为虽 然微软说win16的api只是为了兼容性才保留下来，程序员应该尽可能地调用32位 的api,实际上根本就不是这样！win 9x内部的大部分32位api经过变换调用了同 名的16位api，也就是说我们需要在拦截的函数中嵌入16位汇编代码！     我们将要介绍的是第二种拦截方法，这种方法在win95、98和nt下面运行都 比较稳定，兼容性较好。由于需要用到关于windows虚拟内存的管理、打破进程 边界墙、向应用程序的进程空间中注入代码、pe（portable executable）文件 格式和iat（输入地址表）等较底层的知识，所以我们先对涉及到的这些知识大 概地做一个介绍，最后会给出拦截部分的关键代码。     先说windows虚拟内存的管理。windows9x给每一个进程分配了4gb的地址空 间，对于nt来说，这个数字是2gb，系统保留了2gb到 4gb之间的地址空间禁止进 程访问，而在win9x中，2gb到4gb这部分虚拟地址空间实际上是由所有的win32进 程所共享的，这部分地址空间加载了共享win32 dll、内存映射文件和vxd、内存 管理器和文件系统码，win9x中这部分对于每一个进程都是可见的，这也是win9x 操作系统不够健壮的原因。win9x中为16位操作系统保留了0到4mb的地址空间， 而在4mb到2gb之间也就是win32进程私有的地址空间，由于每个进程的地址空间 都是相对独立的，也就是说，如果程序想截获其它进程中的api调用，就必须打 破进程边界墙，向其它的进程中注入截获api调用的代码，这项工作我们交给钩 子函数（setwindowshookex）来完成，关于如何创建一个包含系统钩子的动态链 接库，《电脑高手杂志》在第？期已经有过专题介绍了，这里就不赘述了。所有 系统钩子的函数必须要在动态库里，这样的话，当进程隐式或显式调用一个动态 库里的函数时，系统会把这个动态库映射到这个进程的虚拟地址空间里，这使得 dll成为进程的一部分，以这个进程的身份执行，使用这个进程的堆栈，也就是 说动态链接库中的代码被钩子函数注入了其它gui进程的地址空间（非gui进程， 钩子函数就无能为力了），当包含钩子的dll注入其它进程后，就可以取得映射 到这个进程虚拟内存里的各个模块（exe和dll）的基地址，如： hmodule hmodule=getmodulehandle(“mypro.exe”); 在mfc程序中,我们可以用afxgetinstancehandle()函数来得到模块的基地址。 exe和dll被映射到虚拟内存空间的什么地方是由它们的基地址决定的。它们的基 地址是在链接时由链接器决定的。当你新建一个win32工程时，vc＋＋链接器使 用缺省的基地址0x00400000。可以通过链接器的base选项改变模块的基地址。 exe通常被映射到虚拟内存的0x00400000处，dll也随之有不同的基地址，通常被 映射到不同进程的相同的虚拟地址空间处。   系统将exe和dll原封不动映射到虚拟内存空间中，它们在内存中的结构与磁盘 上的静态文件结构是一样的。即pe (portable executable) 文件格式。我们得 到了进程模块的基地址以后，就可以根据pe文件的格式穷举这个模块的image_import_descriptor 数组，看看进程空间中是否引入了我们需要截获的函数所在的动态链接库，比如 需要截获“textouta”，就必须检查“gdi32.dll”是否被引入了。说到这里，我 们有必要介绍一下pe文件的格式，如右图，这是pe文件格式的大致框图，最前面 是文件头，我们不必理会，从pe file optional header后面开始，就是文件中各 个段的说明，说明后面才是真正的段数据，而实际上我们关心的只有一个段，那 就是“.idata”段，这个段中包含了所有的引入函数信息，还有iat（import address table） 的rva（relative virtual address）地址。    说到这里，截获windowsapi的整个原理就要真相大白了。实际上所有进程对 给定的api函数的调用总是通过pe文件的一个地方来转移的，这就是一个该模块 (可以是exe或dll)的“.idata”段中的iat输入地址表（import address table） 。在那里有所有本模块调用的其它dll的函数名及地址。对其它dll的函数调用实 际上只是跳转到输入地址表，由输入地址表再跳转到dll真正的函数入口。 具体来说，我们将通过image_import_descriptor数组来访问“.idata”段中引入 的dll的信息，然后通过image_thunk_data数组来针对一个被引入的dll访问该 dll中被引入的每个函数的信息，找到我们需要截获的函数的跳转地址，然后改 成我们自己的函数的地址……具体的做法在后面的关键代码中会有详细的讲解。    讲了这么多原理，现在让我们回到“鼠标屏幕取词”的专题上来。除了api函 数的截获，要实现“鼠标屏幕取词”，还需要做一些其它的工作，简单的说来， 可以把一个完整的取词过程归纳成以下几个步骤： 1．安装鼠标钩子，通过钩子函数获得鼠标消息。   使用到的api函数：setwindowshookex 2．得到鼠标的当前位置，向鼠标下的窗口发重画消息，让它调用系统函数重画 窗口。   使用到的api函数：windowfrompoint，screentoclient，invalidaterect 3．截获对系统函数的调用，取得参数，也就是我们要取的词。    对于大多数的windows应用程序来说，如果要取词，我们需要截获的是 “gdi32.dll”中的“textouta”函数。 我们先仿照textouta函数写一个自己的mytextouta函数，如： bool winapi mytextouta(hdc hdc, int nxstart, int nystart, lpcstr lpszstring,int cbstring) {        // 这里进行输出lpszstring的处理       // 然后调用正版的textouta函数 }    把这个函数放在安装了钩子的动态连接库中，然后调用我们最后给出的 hookimportfunction函数来截获进程对textouta函数的调用，跳转到我们的 mytextouta函数，完成对输出字符串的捕捉。hookimportfunction的用法：  hookfuncdesc hd;  proc         porigfuns;  hd.szfunc="textouta";  hd.pproc=(proc)mytextouta;  hookimportfunction (afxgetinstancehandle(),"gdi32.dll",&hd,porigfuns); 下面给出了hookimportfunction的源代码，相信详尽的注释一定不会让您觉得理 解截获到底是怎么实现的很难，ok,let’s go： ///////////////////////////////////////////// begin /////////////////////////////////////////////////////////////// #include <crtdbg.h> // 这里定义了一个产生指针的宏 #define makeptr(cast, ptr, addvalue) (cast)((dword)(ptr)+(dword)(addvalue)) // 定义了hookfuncdesc结构,我们用这个结构作为参数传给hookimportfunction函数 typedef struct tag_hookfuncdesc {   lpcstr szfunc; // the name of the function to hook.   proc pproc;    // the procedure to blast in. } hookfuncdesc , * lphookfuncdesc; // 这个函数监测当前系统是否是windownt bool isnt(); // 这个函数得到hmodule -- 即我们需要截获的函数所在的dll模块的引入描述符(import descriptor) pimage_import_descriptor getnamedimportdescriptor(hmodule hmodule, lpcstr szimportmodule); // 我们的主函数 bool hookimportfunction(hmodule hmodule, lpcstr szimportmodule,                          lphookfuncdesc pahookfunc, proc* paorigfuncs) { /////////////////////// 下面的代码检测参数的有效性 ////////////////////////////  _assert(szimportmodule);  _assert(!isbadreadptr(pahookfunc, sizeof(hookfuncdesc))); #ifdef _debug  if (paorigfuncs) _assert(!isbadwriteptr(paorigfuncs, sizeof(proc)));  _assert(pahookfunc.szfunc);  _assert(*pahookfunc.szfunc != '/0');         _assert(!isbadcodeptr(pahookfunc.pproc)); #endif  if ((szimportmodule == null) || (isbadreadptr(pahookfunc, sizeof(hookfuncdesc))))  {   _assert(false);   setlasterrorex(error_invalid_parameter, sle_error);   return false;  } //////////////////////////////////////////////////////////////////////////////  // 监测当前模块是否是在2gb虚拟内存空间之上  // 这部分的地址内存是属于win32进程共享的  if (!isnt() && ((dword)hmodule >= 0x80000000))  {   _assert(false);   setlasterrorex(error_invalid_handle, sle_error);   return false;  }      // 清零  if (paorigfuncs) memset(paorigfuncs, null, sizeof(proc));  // 调用getnamedimportdescriptor()函数,来得到hmodule -- 即我们需要  // 截获的函数所在的dll模块的引入描述符(import descriptor)  pimage_import_descriptor pimportdesc = getnamedimportdescriptor(hmodule, szimportmodule);  if (pimportdesc == null)  return false; // 若为空,则模块未被当前进程所引入  //  从dll模块中得到原始的thunk信息,因为pimportdesc->firstthunk数组中的原始信息已经  //  在应用程序引入该dll时覆盖上了所有的引入信息,所以我们需要通过取得pimportdesc->originalfirstthunk  //  指针来访问引入函数名等信息  pimage_thunk_data porigthunk = makeptr(pimage_thunk_data, hmodule,                                                pimportdesc->originalfirstthunk);  //  从pimportdesc->firstthunk得到image_thunk_data数组的指针,由于这里在dll被引入时已经填充了  //  所有的引入信息,所以真正的截获实际上正是在这里进行的  pimage_thunk_data prealthunk = makeptr(pimage_thunk_data, hmodule, pimportdesc->firstthunk);  //  穷举image_thunk_data数组,寻找我们需要截获的函数,这是最关键的部分!  while (porigthunk->u1.function)  {   // 只寻找那些按函数名而不是序号引入的函数   if (image_ordinal_flag != (porigthunk->u1.ordinal & image_ordinal_flag))   {    // 得到引入函数的函数名    pimage_import_by_name pbyname = makeptr(pimage_import_by_name, hmodule,                porigthunk->u1.addressofdata);    // 如果函数名以null开始,跳过,继续下一个函数      if ('/0' == pbyname->name[0])     continue;    // bdohook用来检查是否截获成功    bool bdohook = false;    // 检查是否当前函数是我们需要截获的函数    if ((pahookfunc.szfunc[0] == pbyname->name[0]) &&     (strcmpi(pahookfunc.szfunc, (char*)pbyname->name) == 0))    {     // 找到了!     if (pahookfunc.pproc)     bdohook = true;    }    if (bdohook)    {     // 我们已经找到了所要截获的函数,那么就开始动手吧     // 首先要做的是改变这一块虚拟内存的内存保护状态,让我们可以自由存取     memory_basic_information mbi_thunk;     virtualquery(prealthunk, &mbi_thunk, sizeof(memory_basic_information));     _assert(virtualprotect(mbi_thunk.baseaddress, mbi_thunk.regionsize,                         page_readwrite, &mbi_thunk.protect));     // 保存我们所要截获的函数的正确跳转地址     if (paorigfuncs)       paorigfuncs = (proc)prealthunk->u1.function;     // 将image_thunk_data数组中的函数跳转地址改写为我们自己的函数地址!     // 以后所有进程对这个系统函数的所有调用都将成为对我们自己编写的函数的调用     prealthunk->u1.function = (pdword)pahookfunc.pproc;     // 操作完毕!将这一块虚拟内存改回原来的保护状态     dword dwoldprotect;     _assert(virtualprotect(mbi_thunk.baseaddress, mbi_thunk.regionsize,                         mbi_thunk.protect, &dwoldprotect));     setlasterror(error_success);     return true;    }   }   // 访问image_thunk_data数组中的下一个元素   porigthunk++;   prealthunk++;  }  return true; } // getnamedimportdescriptor函数的实现 pimage_import_descriptor getnamedimportdescriptor(hmodule hmodule, lpcstr szimportmodule) {  // 检测参数  _assert(szimportmodule);  _assert(hmodule);  if ((szimportmodule == null) || (hmodule == null))  {   _assert(false);   setlasterrorex(error_invalid_parameter, sle_error);   return null;  }  // 得到dos文件头  pimage_dos_header pdosheader = (pimage_dos_header) hmodule;  // 检测是否mz文件头  if (isbadreadptr(pdosheader, sizeof(image_dos_header)) ||   (pdosheader->e_magic != image_dos_signature))  {   _assert(false);   setlasterrorex(error_invalid_parameter, sle_error);   return null;  }  // 取得pe文件头  pimage_nt_headers pntheader = makeptr(pimage_nt_headers, pdosheader, pdosheader->e_lfanew);  // 检测是否pe映像文件  if (isbadreadptr(pntheader, sizeof(image_nt_headers)) ||    (pntheader->signature != image_nt_signature))  {   _assert(false);   setlasterrorex(error_invalid_parameter, sle_error);   return null;  }  // 检查pe文件的引入段(即 .idata section)  if (pntheader->optionalheader.datadirectory[image_directory_entry_import].virtualaddress == 0)   return null;  // 得到引入段(即 .idata section)的指针  pimage_import_descriptor pimportdesc = makeptr(pimage_import_descriptor, pdosheader,   pntheader->optionalheader.datadirectory[image_directory_entry_import].virtualaddress);  // 穷举pimage_import_descriptor数组寻找我们需要截获的函数所在的模块  while (pimportdesc->name)  {   pstr szcurrmod = makeptr(pstr, pdosheader, pimportdesc->name);   if (stricmp(szcurrmod, szimportmodule) == 0)       break; // 找到!中断循环   // 下一个元素   pimportdesc++;  }  // 如果没有找到,说明我们寻找的模块没有被当前的进程所引入!  if (pimportdesc->name == null)   return null;  // 返回函数所找到的模块描述符(import descriptor)  return pimportdesc; } // isnt()函数的实现 bool isnt() {  osversioninfo stosvi;  memset(&stosvi, null, sizeof(osversioninfo));  stosvi.dwosversioninfosize = sizeof(osversioninfo);  bool bret = getversionex(&stosvi);  _assert(true == bret);  if (false == bret) return false;  return (ver_platform_win32_nt == stosvi.dwplatformid); } /////////////////////////////////////////////// end //////////////////////////////////////////////////////////////////////    不知道在这篇文章问世之前，有多少朋友尝试过去实现“鼠标屏幕取词”这 项充满了挑战的技术，也只有尝试过的朋友才能体会到其间的不易，尤其在探索 api函数的截获时，手头的几篇资料没有一篇是涉及到关键代码的，重要的地方 都是一笔代过，msdn更是显得苍白而无力，也不知道除了image_import_descriptor 和image_thunk_data，微软还隐藏了多少秘密，好在硬着头皮还是把它给攻克了， 希望这篇文章对大家能有所帮助。

shellapi · 2002-05-14

tieren.org/shellapi/homepage/hookshellapi.zip 要在2000／xp下。

yfdciom · 2002-05-16

我再说一下我的意思：   我在作一个鼠标取词的东西，通过截获对TEXTOUT 等API函数的调用来达到屏幕取词的目的。   我把一个用DELPHI编译好的EXE文件映射到内存    H:=CreateFile('C:/A.exe',GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);    hMap:=CreateFileMapping(H,nil,PAGE_READONLY or SEC_COMMIT,0,0,nil);    hBase:=MapViewOfFile(hMap,FILE_MAP_READ,0,0,0);    if H=0 then exit;    //  Finished Map File C:/A.exe    DOS:=PImageDosHeader(hBase);    if DOS.e_magic<>IMAGE_DOS_SIGNATURE then  exit;    if IsBadReadPtr(DOS,Sizeof(DOS)) then exit;    NT:=PImageNTHeaders(DWORD(hBase)+DOS^._lfanew);    if NT.Signature<>IMAGE_NT_SIGNATURE then exit;    if IsBadReadPtr(DOS,Sizeof(NT)) then exit;    Memo1.Lines.Add('PE文件头基地址: '+IntToStr(Integer(hBase)));    //Obtained the PE_Header    RVA:=NT^.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress;    Descripter:=PImageImportDescriptor(DWORD(hBase)+RVA);    //Obtained the Import_Tabel Address    //Enter Into the Import_Tabel    while Descripter^.Name<>0 do    begin      Memo1.Lines.Add('引入文件名: ');      DLlName:=pChar(DWORD(hBase)+Descripter^.Name);   /////////此句出错////////////////      .      .      .     Inc(Descripter);    end;

江南草 · 2002-05-16

bbs.whnet.edu.cn 武汉白云黄鹤上有delphi的源码。。。

yfdciom · 2002-05-22

各位虾哥虾姐，告诉我哪有Delphi的屏幕取词源码下载，好吗？ 不要贴几年以前的代码！

mckz · 2002-05-22

http://go4.163.com/lovejingtao/

jrq · 2002-05-22

其实源码都帖在了上面，能用，只是有些不尽人意的地方！ －－－－－－－－－－－－－－－－－－ 求Delphi版屏幕取词源代码 http://www.delphibbs.com/delphibbs/dispq.asp?LID=996179 不怕死机的壮士请进！！ http://www.delphibbs.com/delphibbs/dispq.asp?lid=518043 记事本用什么函数输出文字？比如：exttextout,textout等 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1028948 求屏幕取词的DELPHI源代码，十万火急！！！ http://www.delphibbs.com/delphibbs/dispq.asp?lid=130987 这些都是的

jrq · 2002-05-22

： swarmmail@163.net ，已经发送。 －－－－  1.运行程序  2.将2个按钮都点击一下  3.打开delphi，将鼠标放在delphi的编辑器中，    能够将选中的代码（或字母单词）显示在Label2后面的Edit中。

huiyugan · 2002-05-23

我的代码，可以发给你 不过有些问题我没有研究。 工作于2000下。

huiyugan · 2002-05-24

已经发给你了，注意查收

yfdciom · 2002-05-24

huyugan,我已经收到了，谢谢，待我研究之后再酌情处理。

huiyugan · 2002-05-24

5555,酌情处理啊？ 偶可是费了些功夫啊，全是俺写的， 俺有一些请求：请不要散布，因为现在不好，好多地方要改，别人看到了回笑话的。 以后偶做好了，自然会发布天下的。 哦，我想起来了，我在mail中说了

谁有屏幕取词的delphi源代码，我头发都急白了(800里加急),收到源码再送100分 (50分)

yfdciom

Unregistered / Unconfirmed

yfdciom

Unregistered / Unconfirmed

byteh

Unregistered / Unconfirmed

盛利

Unregistered / Unconfirmed

IamWLJ888

Unregistered / Unconfirmed

yfdciom

Unregistered / Unconfirmed

fpsky

Unregistered / Unconfirmed

PFans

Unregistered / Unconfirmed

mckz

Unregistered / Unconfirmed

shellapi

Unregistered / Unconfirmed

yfdciom

Unregistered / Unconfirmed

江南草

Unregistered / Unconfirmed

yfdciom

Unregistered / Unconfirmed

mckz

Unregistered / Unconfirmed

jrq

Unregistered / Unconfirmed

jrq

Unregistered / Unconfirmed

huiyugan

Unregistered / Unconfirmed

huiyugan

Unregistered / Unconfirmed

yfdciom

Unregistered / Unconfirmed

huiyugan

Unregistered / Unconfirmed

Similar threads