L2PacketHack 3.5.x

[NLObP]

Никак не получается сделать. Ткните носом как правильно.

Есть

      procedure TfMainReplacer.CreateParams(var Params: TCreateParams);     
      begin
        inherited CreateParams(Params);
        Params.WinClassName := 'hervam'; //любаярандомнаястрочка
      end;

Делаю

      procedure TfMainReplacer.CreateParams(var Params: TCreateParams);     
var
  str: string;
begin
  inherited CreateParams(Params);
  str:='hervam';
  Params.WinClassName := str; //<-error
end;

Вылетает ошибка

[DCC Error] uMainReplacer.pas(381): E2010 Incompatible types: 'Array' and 'string'

Делаю так

procedure TfMainReplacer.CreateParams(var Params: TCreateParams);
var
  str: array[0..63]of Char;
begin
  inherited CreateParams(Params);
  //str:='hervam';
  Params.WinClassName := str; //<-error
end;

[DCC Error] uMainReplacer.pas(381): E2008 Incompatible types

Хотя в сурсах WinClassName определена как

WinClassName: array[0..63] of Char; // Имя класса окна

Как сделать правильно?

Так правильно будет?

  Move(str, Params.WinClassName, SizeOf(str));