如何获得游戏窗口内文字？不够再加分！！！！！！！！！！

Question

象金山词霸之类的软件，都有屏幕取词功能，但只能取到普通窗口内的文字。网络游戏窗口内的文字他就取不到。Delphi能实现获取游戏窗口内文字吗？？
请高手详细解答，不够再送分！

Answer 1

先去把DirectX研究透彻再来问问题吧，因为这里的DirectX高手可能不多

Answer 2

获取当前鼠标位置的类名和句柄 
 
9/15/2000 0:0:0· ·吴中卫··yesky 
　　这有点像金山词霸的屏幕取词。要获取当前鼠标位置的类名和句柄，只须通过 WindowFromPoint和GetClassName 这两个Win32函数就可以完成任务，不过，如果要获取当前鼠标位置的字符，可能要复杂得多。下面是很简单的范例，大家应该都可以轻易弄清楚的。　type
TForm1 = class(TForm)
NameLB: TLabel;
ClassLB: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure GetMousePosHwndAndClassName(Sender : TPoint);
publicend;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject);
var
rPos: TPoint;
begin
if boolean(GetCursorPos(rPos)) then
GetMousePosHwndAndClassName(rPos);
end;procedure TForm1.GetMousePosHwndAndClassName(Sender: TPoint);
var
hWnd: THandle;
aName: array [0..255] of char;
begin
hWnd := WindowFromPoint(Sender);
NameLB.Caption := ’Handle : ’ + IntToStr(hWnd);if boolean(GetClassName(hWnd, aName, 256)) then
ClassLB.Caption := ’ClassName : ’ + string(aName)
elseClassLB.Caption := ’ClassName : not found’;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.FormStyle := fsStayOnTop;
Timer1.Interval := 50;
end;
 
删除文本文件中的多余空格  
 
7/1/2000 0:0:0· ·-··- 
p>　　计算机世界的Web站点，越来越受到广大读者和网 友的喜爱，其中有一个重要原因，就是实用技巧栏目的推出。在实用技巧网页中，编辑对文 本文件进行了处理，在每个汉字中间增加一个空格，以便于网友在网上阅读，在因特网上也 有不少网站采取了此类便民措施。 
　　我们从网上粘下这类文本文件之后，有时候需要 打印留存，但在打印时却遇到了麻烦，那就是汉字中的空格成为多余。以下Delphi程序利用Memo 控件作为过渡，可删除文件中的多余空格，重新存盘后，即可方便的用Word或Wps打印输出。 　　1、新建一个工程，在窗体上放置如下控件：Memo1、OpenDialog1 和3个按钮（“打开”、“存盘”、“删除多余空格”），设置Memo1的属性WordWrap=False，设置“存 盘”和“删除多余空格”的属性Enabled=False。 　　2、编写三个按钮的事件代码。 procedureTForm1.ToolButton1Click(Sender:TObject);
begin//打开一个文本文件
ifopendialog1.Executethenbegin
memo1.Lines.LoadFromFile(opendialog1.FileName);
caption:=DeleteBlank[+opendialog1.FileName+];
ifmemo1.Lines.Count<>0thenbegin
toolbutton2.Enabled:=True;
toolbutton3.Enabled:=True;
end
elsebegin
toolbutton2.Enabled:=False;
toolbutton3.Enabled:=False;
end;
end;
end;procedureTForm1.ToolButton2Click(Sender:TObject);
begin//将Memo1的内容写入原来文件
screen.Cursor:=crHourGlass;
memo1.Lines.SaveToFile(opendialog1.FileName);
toolbutton2.Enabled:=False;
screen.Cursor:=crDefault;
end;procedureTForm1.ToolButton3Click(Sender:TObject);
vari,j,linecount,strlen:integer;
buffer1,buffer2:string;
begin//删除Memo1中的多余空格
screen.Cursor:=crHourGlass;
linecount:=memo1.Lines.Count;
//总行数
fori:=0tolinecount-1dobegin
buffer1:=memo1.Lines[i];
iflength(trim(buffer1))=0thencontinue;
//处理空白行
buffer2:=;
strlen:=length(buffer1);
//行长
j:=1;
while(j<=strlen)and(buffer1[j]=)dobegin
//跳过行首空格
j:=j+1;
buffer2:=buffer2+;
end;whilej<=strlendobegin
buffer2:=buffer2+buffer1[j];
ifj=strlenthenbreak;
//行尾则退出循环
j:=j+1;
ifbuffer1[j]<>thencontinue;
//不为空格，则处理下一个字符
iford(buffer1[j+1])>=$A1thenbegin
//后一个为汉字，则删除这个空格
j:=j+1;
continue;
end;
end;
memo1.   es[i]:=buffer2;
end;
toolbutton3.Enabled:=False;
screen.Cursor:=crDefault;
end;　　3、本程序在PWin95/98,Delphi3下调试通过，由 于篇幅所限，Memo1中的显示不能自动换行，读者可自行完善。 　　[阿昊说：这种技巧用C来实现可能会简单些。另 外，我们只在汉字前加一个空格，后面没有。] 
 
改造Hint输出方式 
 
6/25/2000 0:0:0· ·-··中国计算机报 
　elphi为每个可视构件(而非快速按钮专属)都提供了Hint及ShowHint特性，其中Hint属性指定文本提示盒中的文本，而ShowHint属性则决定鼠标指向构件时是否显示文本提示盒，当ShowHint值为True时，显示文本提示盒。用户可在对象监视器(Object Inspector)的属性栏中设置或在程序中修改Hint及ShowHint属性。　　除此之外，Delphi还在类TApplication中提供了HintColor、HintPause、HintHidePause、HintShortPause几个属性来控制文本提示盒的输出方式。　　一般来说，HintColor、HintPause、HintHidePause、HintShortPause通常在Form的OnCreate事件中设定它们的值(如有需要的话)，如以下的一段程序。　　ProcedureTMainForm.FormCreate(Sender:TObject);
　　begin
　　Application.HintPause:=0;｛使文本提示盒立即出现｝
　　Application.HintPause:=clBlue;｛以蓝色小方框的方式出现｝
　　Application.HintHidePause:=10000;｛延长停留时间为10秒｝
　　Application.HintShortPause:=100;
　　end;　　另外，在编程中，我们还可以通过TApplication的OnHint事件获取鼠标指向构件的Hint文本。　　事实上，Delphi提供的文本提示盒输出方框、文本字型都太小，既不美观亦不易看清。值得庆幸的是，Delphi2.0版提供了全部构件的源代码，我们可以通过对类TApplication的源码作一些小修改，增加一个HintFont的属性，即可象修改HintColor一样来修改文本提示盒的字体、
字型大小等。　　TApplication是在Forms单元里定义的，因此让我们打开Forms.pas单元文件来作以下一些修改:　　ProcedureSetHintColor(Value:TColor｝;
　　ProcedureSetHintFont(Value:TFont);｛1997.04.19 MyNewIdea｝
　　Property HintColor:TColor read FHintColor Write SetHintColor;
　　Property HintFont:TFontwriteSetHintFont;｛1997.04.19Mynewidea｝
　　ProcedureTApplication.SetHintColor(Value:Color); //增加一个过程｛1997.04.19Mynewidea｝　　ProcedureTApplication.SetHintFont(Value:TFont); 
　　begin
　　if(Value nil) and (FHinWindow nil) then
　　FHintWindow.Canvas.Font:=Value;
　　end;｛1997.04.19Mynewidea｝　　别忘了在新增的语句旁作一些必要的注释，如上 模?997.04.19Mynewidea｝，可以很清楚地知道哪些语句是你自己加进去的。　　将修改后的Forms.pas存盘，然后重建库文件，以后在你的库文件里，类TApplication就多了一个属性HintFont，你就可以很轻易的通过HintFont属性来修改文本提示盒的字体、字型大小了，如以下一段程序:　　ProcedureTMainForm.FormCreate(Sender:TObject);
　　Var
　　NewHintFont : TFont;
　　begin
　　NewHintFont:=TFont.Create;
　　NewHintFont.Name:=楷体－GB2312;｛设置字体为楷体｝
　　NewHintFont.Size:=12;｛设置字型大小为12｝
　　Application.HintFont:=NewHintFont;
　　end;　　此外，Delphi绘制文本提示盒是在类THintWindow的方法ActivateHint中通过WindowsAPI资源函数SetWindowPos来实现的，这段代码在Controls.pas单元文件里，有兴趣的读者可以进一步修改这段代码以绘制其他任意形状(如椭圆、圆等)而不仅仅是矩型方框的文本提示盒！但或许最好的方法是从类THintWindow继承下来一个新类，并重载Activate？Hint方法，然后在应用程序开始处给变量HintWindowClass指派一个新类实例。  

Answer 3

to 楼主:我要你的屏幕取词代码.....waiting........哈。。哈

Answer 4

很多时候游戏中的文字输出和窗体上用GDI输出的文字是有本质区别的~~~输出文字根本就不用那些GDI,那当然不能通过HOOK那些API获得文字信息~~~