K
kickgame
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);<br>var<br>name
char;<br>l:integer;<br>h,zh,eh:hwnd;<br>begin<br> h:=findwindow('notepad',nil);<br> zh:=findwindow('edit',nil);<br> eh:=findwindowex(h,zh,'edit',nil);<br> l:=getwindowtextlength(eh)+1;<br> getmem(name,l);<br> getwindowtext(eh,name,l);<br> label1.Caption :=string(name);<br> freemem(name,0);<br> sendmessage(eh,wm_keydown,55,0);<br>end;<br> 请教这里什么地方出错了？？
char;<br>l:integer;<br>h,zh,eh:hwnd;<br>begin<br> h:=findwindow('notepad',nil);<br> zh:=findwindow('edit',nil);<br> eh:=findwindowex(h,zh,'edit',nil);<br> l:=getwindowtextlength(eh)+1;<br> getmem(name,l);<br> getwindowtext(eh,name,l);<br> label1.Caption :=string(name);<br> freemem(name,0);<br> sendmessage(eh,wm_keydown,55,0);<br>end;<br> 请教这里什么地方出错了？？