如何根据一个对象的句柄获取该对象的实例呢?(100分)

K

Konan

Unregistered / Unconfirmed
GUEST, unregistred user!
如何根据一个对象的句柄获取该对象的实例呢?
比如通过Application.Handle来获取Application的实例。
请高手指教!![:D]
 
说明得不太详细!随便举个便子吧………以QQ 为例!以往我们在聊天时将说的话写好后,
按CTRL+ENTER 键就可以发送消息给对方!
现在我们在DELPHI 中通过编程实现此功能……如下:
1、打开自己的QQ 程序,将要说的话写好后放在那边!
2、打开delphi程序,放一Button1 按钮,编写代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
h: THandle;
begin
h := FindWindow(nil,'发送消息');
PostMessage(h, WM_KEYDOWN, VK_CONTROL , 0);
PostMessage(h, WM_KEYDOWN, VK_RETURN, $40000000);
end;
3、当运行后单击button1 按钮,刚才在QQ 窗口中的信息就发送出去了………
(思路:春意)
 
楼上的好像没明白我的意思(也许是我没有说明白),我举个例子吧。我现有一个窗体,
上面有若干控件,我想通过这个窗体的句柄来访问窗体上的控件,不知如何实现?还请楼
上的给予更详细的说明,谢过春意兄!!![:D]
 
顶部