delphi 请教writeprocessmemory函数怎么用 h1:= OpenProcess(PROCESS_ALL_ACCESS, false, pid);WriteProcessMemory(h1,Ptr($01012F60),PChar(Chr(1000)),4,0);h1是进程句柄 改内存$01012F60值为1000运行以后内存值没变化 请问是哪里原因 高手指点下 没学过delphi依葫芦画瓢来的 高手莫笑 呵呵~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我的程序在delphi6下测试成功的procedure TForm1.Button1Click(Sender: TObject);var h1:THandle; pid:integer; m:dword;const p:pchar='1111';beginpid:=2624; //这个是CMD.exe的PID,我省得用其它的了h1:= OpenProcess(PROCESS_ALL_ACCESS, false, pid);WriteProcessMemory(h1,Ptr($40000),p,4,m); //$40000是可写的end;运行前,我用winhex看它的内存$40000处全为0,运行后变为4字节的31 31 31 31调用成功我不知你用什么版本,关键1.OpenProcess不能返回0,你可判一下,如果是0,说明OpenProcess失败2.要保证你的内存可写(有API但较繁),简单的,先用winhex写一下试试你的版本可能与我的不同,我的d6最后一个参数只能是变量,否则不能编译 如何修改TWebBrowser提交到服务器上的post数据 请教record记录类型的问题 请大来看看 关于 StringGrid 的底色问题 急急急。。。。。。 如何访问居于网内的另一台机器 已经存在一个EXE文件能不能把他的图标导出为ICO格式? ADO數據編程的問題,,,,,,,,,,,,,在線等,急。 剪切板的乱码问题 如何知道这个事件是由那个构件触发的? 安装flash的ocx时出错,哪为大虾帮忙看看怎么回事 急!!!送分!!!socket发送变长中文+字符数组 求delphi Exe程序A使用已经存在的独立资源文件B 解决方案
procedure TForm1.Button1Click(Sender: TObject);
var
h1:THandle;
pid:integer;
m:dword;
const
p:pchar='1111';
begin
pid:=2624; //这个是CMD.exe的PID,我省得用其它的了
h1:= OpenProcess(PROCESS_ALL_ACCESS, false, pid);WriteProcessMemory(h1,Ptr($40000),p,4,m); //$40000是可写的
end;
运行前,我用winhex看它的内存$40000处全为0,运行后变为4字节的
31 31 31 31
调用成功
我不知你用什么版本,关键
1.OpenProcess不能返回0,你可判一下,如果是0,说明OpenProcess失败
2.要保证你的内存可写(有API但较繁),简单的,先用winhex写一下试试
你的版本可能与我的不同,我的d6最后一个参数只能是变量,否则不能编译