一个程序如何控制别的程序中的stringgrid控间 ( 积分: 200 )

  • 主题发起人 主题发起人 geekqk
  • 开始时间 开始时间
G

geekqk

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在有一个程序A,不是我自己编写的,它有一个STRINGGIRD控件,我如何获得它每个CELL中的内容,并可以随意改写其内容。
 
我现在有一个程序A,不是我自己编写的,它有一个STRINGGIRD控件,我如何获得它每个CELL中的内容,并可以随意改写其内容。
 
要慢慢地找句柄吧
 
类似游戏外挂!内存中想办法吧。
 
procedure TForm1.Timer1Timer(Sender: TObject);<br><br>var<br><br> &nbsp;Pos: TPoint;<br><br> &nbsp;Handle: HWND;<br><br> &nbsp;ScreenDC: HDC;<br><br> &nbsp;Buf: array[0..1024] of Char;<br><br> &nbsp;ScreenColor: COLORREF;<br><br>begin<br><br> &nbsp;GetCursorPos(Pos); // 得到当前光标位置<br><br> &nbsp;Handle := WindowFromPoint(Pos); // 返回当前位置的句柄<br><br> &nbsp;HandleText.Caption := IntToStr(Handle); &nbsp; &nbsp; &nbsp;//显示句柄<br><br> &nbsp;GetClassName(Handle, Buf, 1024); // 得到类名<br><br> &nbsp;ClassNameText.Caption := Buf; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;//显示当前所指控件类名<br><br> &nbsp;SendMessage(Handle, WM_GETTEXT, 33, Integer(@Buf)); // 得到标题<br><br> &nbsp;TitleText.Caption := Buf; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; //显示当前控件的内容<br><br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;//如edit1为密码框时可显示的出里面的内容。
 
接受答案了.
 
后退
顶部