Delphi 2010 и функции HexToString/StringToHex

[xkor]

Asmoday, вот ещё в качестве бонуса более быстрый и стабильный вариант StringToHex:

function StringToHex(str1: AnsiString; sep: AnsiChar = #0): AnsiString;
const
  hexAlf: array[0..15] of AnsiChar = '0123456789ABCDEF';
var
  i,size:Integer;
begin
  size:=Length(str1);
  if sep=#0 then begin
    SetLength(Result,size*2);
    for i:=1 to size do begin
      Result[i*2-1]:=hexAlf[Byte(str1[i]) shr 4];
      Result[i*2]:=hexAlf[Byte(str1[i]) and $f];
    end;
  end else begin
    SetLength(Result,size*3);
    for i:=1 to size do begin
      Result[i*3-2]:=hexAlf[Byte(str1[i]) shr 4];
      Result[i*3-1]:=hexAlf[Byte(str1[i]) and $f];
      Result[i*3]:=sep;
    end;
  end;
end;

[Asmoday]

xkor, тут еще вопросик к тебе, попытался перекомпилить inject.dll в 2010, но ничего не получилось. После долгих раздумий пришел к выводу, что проблема заключается в advAPIHook.pas. Нет ли готового решения? Не хочется перелопачивать несколько десятков функции.

[xkor]

Asmoday, боюсь не использовал пока этот модуль на 2009+ дельфе...