屏幕取词问题？桌面上的图标示中文标题的没问题，遇到标题是英 找速达财务软件售后
2楼: 没有人遇到这样的问题吗？为什么我从网上查找的所有屏幕取词的资料在我的机器上都出现乱码的问题，在别的机器上有可能不出现。而金山的都不会出现乱码？有什么地方需要特殊处理的吗？请赐教！ 如速达财务软件售后
3楼: Hi 怎么了？怎么没有人理呀，分不是问题，给点意见也行，这几天该试也都试了，就是没有找到好的解决方法。希望大家多多提提见解，谢谢！
4楼: 兄弟伙把你的那段代码我看一下呢
5楼: 会不会是unicode搞的鬼？
6楼: 首先感谢两位的采参与。这是其中TextOutW实现的过程和需要的函数，请提宝贵意见，谢谢！
//初识化APIHOOK
HookNT[fTextOutW]:= TuhAPIHook32.Create(Trap, @TextOutW,NewTextOutW);
//[b]对截获API函数的初始化[/b]
{HOOK的入口，其中IsTrap表示是否采用陷阱式}
constructor TuhAPIHook32.Create(IsTrap: Boolean; OldFun, NewFun: Pointer);
begin
{求被截函数、自定义函数的实际地址}
OldFunction := FinalFunctionAddress(OldFun);
NewFunction := FinalFunctionAddress(NewFun);
Trap := IsTrap;
if Trap then{如果是陷阱式}
begin
{以特权的方式来打开当前进程}
hProcess := OpenProcess(PROCESS_ALL_ACCESS,FALSE, GetCurrentProcessID);
{生成jmp xxxx的代码，共5字节}
Newcode.JmpCode := ShortInt($E9); {jmp指令的十六进制代码是E9}
NewCode.FuncAddr := DWORD(NewFunction) - DWORD(OldFunction) - 5;
{保存被截函数的前5个字节}
move(OldFunction^,OldCode,5);
{设置为还没有开始HOOK}
AlreadyHook:=false;
end
else
AllowChange := True; //如果是改引入表式，将允许HOOK
Change; {开始HOOK}
{如果是改引入表式，将暂时不允许HOOK}
if not Trap then AllowChange := False;
end;
//TextOutW 函数
function NewTextOutW(theDC: HDC; nXStart, nYStart: integer; str: pWidechar; count: integer): bool; stdcall;
begin
HookNT[fTextOutW].Restore();{暂停截取API，恢复被截的函数}
//修改字体和字符集，有时能用，
//if (pShMem^.bCanSpyNT) then CreateRangFont(theDC) else RestoreRangFont;
FilterTextW(theDC, nXStart, nYStart, Str, Count);
{$ifdef debug}
SetTextColor(thedc,clTextOutW);
{$endif}
Result := TTextOutW(HookNT[fTextOutW].OldFunction)(theDC, nXStart, nYStart, str, Count);
HookNT[fTextOutW].Change();{重新截取API}
end;
//FilterTextW 函数
procedure FilterTextW(theDC: HDC; nXStart, nYStart: Integer; Str: PWideChar; Count: Integer);
var
r: TRect;
ws: WideString;
begin
if not pShMem^.bCanSpyNT then Exit;
r := GetTextRectW(theDC, nXStart, nYStart, Str, Count);
if PtInRect(r, pShMem^.OldPt) then
begin
ws := GetRealStrW(theDC, Str, Count, pShMem^.pMouse, r.Left);
//向上层发送消息
SaveToBuffer(ws);
end;
end;
仓库管理软件版7楼: 我以前写了一个屏幕取词工具，中英文都能正常，没有乱码。也是参考网上的相关资料。
8楼: to szlbz:
你是在 WINDOWS 2000 下用的没有乱码吗？经过我的测试 2000 下有的出现，有的不出现，找不到规律，XP和2003不会出现乱码？有什么特殊需要注意的地方吗？谢谢！
9楼: 能不能和金山词霸兼容？
会不会有冲突饿。
10楼: to qghwei:
在xp和2003不会有乱码，２０００上无测试。
11楼: to szlbz:
谢谢您的关注，我也测试过了，在XP和2003下没有问题，在2000下有的机器会出现乱码问题，不知道是什么原因。
联系我们
