本文整理自网络,侵删。
创建一Delphi工程,放置一个TEdit和TButton,在Edit1中随便输入一些文字。
{
---------------通过控件句柄获取控件实例-------------------------------------------- ---------------原理详见 Classes.pas 单元,13045行 <Delphi7>------------------------ ---------------原理详见 Classes.pas 单元,11613行 <Delphi2007>--------------------- ---------------原理详见 Classes.pas 单元,13045行 <Delphi2010>--------------------- ---------------原理详见 Classes.pas 单元,13512行 <DelphiXE>-----------------------}function GetInstanceFromhWnd(const hWnd: Cardinal): TWinControl;type PObjectInstance = ^TObjectInstance;
TObjectInstance = packed record Code: Byte; { 短跳转 $E8 } Offset: Integer; { CalcJmpOffset(Instance, @Block^.Code); } Next: PObjectInstance; { MainWndProc 地址 } Self: Pointer; { 控件对象地址 } end;var wc: PObjectInstance;begin Result := nil; wc := Pointer(GetWindowLong(hWnd, GWL_WNDPROC)); if wc <> nil then begin Result := wc.Self; end;end;
procedure TForm1.btn1Click(Sender: TObject);begin btn1.Caption := TEdit(GetInstanceFromhWnd(edt1.Handle)).Text;end;看我们是如何获取了Edit1中的文字的。很神奇把,懂VCL代码,就没有那么神奇了。
来源:http://blog.csdn.net/dbyoung/article/details/7020620
相关阅读 >>
Delphi idhashmessagedigest 获取文件md5
Delphi http 常见异常状态及Delphi idhttp 控件处理方式
Delphi searchrec.attr and fadirectory
Delphi readprocessmemory writeprocessmemory读写内存
更多相关阅读请进入《Delphi》频道 >>