把txt定义为PAnsiChar，即为ANSI风格，你说的“Ascii格式”不准确，要是严格的ASCII，则只能是英文，中文根本不行；Length(txt)不需要*2，完整如下：
var
txt:PAnsiChar;
WriteCount: DWORD;
HPRo: Cardinal;
begin
txt:= '问世间，情为何物，直叫人生死相许';
Threadd:=VirtualAllocEx(HPro, nil, 256, MEM_COMMIT, PAGE_EXECUTE_READWRITE);
WriteProcessMemory(HPro,Threadd,txt, Length(txt), WriteCount);
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024