问一个内存修改的问题

Question

var
  pid:dword;
  hProcess:thandle;
  ByteWriteln:dword;
  s:string;
begin
  s:='1A000000760032002E0063006F006D00';
  GetWindowThreadProcessId(findwindow(nil,'From1'), @PID);
  hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  WriteProcessMemory(hProcess,Pointer($004379A0),@s[1],32, ByteWriteln);
  closehandle(hprocess);
end;这样写入应该是 Ascii
如何让他是十六进写进去

Answer 1

var
  buf: array[0..32] of Byte = ($1A,$00,$00...)WriteProcessMemory(hProcess,Pointer($004379A0),@buf[0],32, ByteWriteln);