function ReadWideStr(add: Integer; size: Integer): string;
var
i: Integer;
begin
i := 0;
Result := '';
add := PInt(add)^;
while i < size do
begin
Result := Result + pWideChar(add + i)^;
inc(i, 2);
end;
end;
function ReadWideStr(add: Integer; size: Integer): Widestring; //这里要改为宽字符
var
i: Integer;
begin
i := 0;
Result := '';
add := PInt(add)^;
while i < size do
begin
Result := Result + pWideChar(add + i)^;
inc(i, 2);
end;
end;