我的程序死活运行不成功,来看看源代码

allked

var
llhwnd:hwnd;
Longs:longint;
pHandleongint;
str:char;
tt:Cardinal;
begin
llhwnd:=findwindow(nil,'连连看 v3.6');

getwindowthreadprocessid(llhwnd,@longs);

     phandle:=openprocess(PROCESS_ALL_ACCESS,false, longs);

     readprocessmemory(phandle,ptr($0013FEBC),@str,sizeof(str),tt);
     edit1.text:=str;


总是读不出那个地址的值,还有writeprocessmemory怎么写?
sendmessage的鼠标模拟怎么弄?已经用setcusor设定好坐标,
问题有点多还望高手交角我啊

baickl

要测试是否可读才行。并不是什么进的数据程你都可以读的。

brsoft

简单，在2000/nt中，你必须为当前进程附于可读写权限，这样的例子网上多