CODE Unicode roleName_字符类型数据人物名子

////////////////////////////////////////////////////////////////////////////

(*
电脑上开了2个窗口的名子都为Element Client如何处理默认处理是哪个窗口是激活的就读取哪个窗口
CE是通过 PID处理的
如何处理多进程游戏

*)

procedure DsplyRoleName();
//roleName=[[[[924E0C]+1C]+20]+5CC]+0//名称
//在Delphi中用$加个地址表示这个地址它是16进制数的
Const
    BaseAddress=$924E0C;
        Offset1=$1C;
        Offset2=$20;
      RNOffset1=$5CC;
      RNOffset2=$0;
var
  MyHwnd:HWND;
  MyPid:Dword;
  MyProcess:Thandle;
  MyPointer:Integer;
  Readbyte:DWORD;//Size_T
  RoleName:array [0..16] of WideChar;// UniCode 0..17个字符加起来共18个字符
  (*
    完美世界的人物名子最多可用9个汉字组成->18个字节(Bytes)
    1个汉字=2个字节(Byte)
    1个字节=1个英文字母
    9个汉字=9*2(Bytes)=18(Bytes);
    完美世界里使用的是Unicode字符，而我要是以字符串型显示出来的
    UniCode类型的数据需要使用WideChar类型;
    当人物的名子是由9个汉字组成的时候Char类型就会出乱码
  *)

begin
  MyHwnd:=FindWindow(NIL,'Element Client');
  if myHwnd=0 then ShowMessage('No Found Element Client Window');
  GetWindowThreadProcessId(MyHwnd,@myPid);
  MyProcess:=OpenProcess(PROCESS_ALL_ACCESS,false,myPid);
  ReadProcessMemory(MyProcess,Pointer(BaseAddress),@MyPointer,4,Readbyte);
  ReadProcessMemory(MyProcess,Pointer(MyPointer+Offset1),@MyPointer,4,Readbyte);
  ReadProcessMemory(MyProcess,Pointer(MyPointer+Offset2),@MyPointer,4,Readbyte);
  //把Unicode转换成ASCII
  ReadProcessMemory(MyProcess,Pointer(MyPointer+RNOffset1),@MyPointer,4,Readbyte);
  ReadProcessMemory(MyProcess,Pointer(MyPointer+RNOffset2),@RoleName,32,Readbyte);//20要读取的字节数
  CloseHandle(MyProcess); //试用18不行试19也不行，试20可行
  //显示数值 //是上面16的2倍
  FORM1.ComboBox1.Clear;
  FORM1.ComboBox1.Text:=RoleName;
  FORM1.ComboBox1.Items.Add(RoleName) ;
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
  DsplyRoleName; //单击ComboBox小三角事件 OnDropDown
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     form1.combobox1.Text:='';
     form1.FormStyle:=fsStayOnTop;
     DsplyRoleName;
end;

///////////////////////////////////