Никак не получается сделать. Ткните носом как правильно.
Есть
Код:
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));