[poli-smen]

Сообщение от serega6531

Ой, зависло и много собщений отправилось.

Функция тут не при чем. Переменная такая ещё до вызова ShellExecute.

По чём определяешь что длина строки обрезается до вызова ShellExecute? У меня ничего не обрезается.

Вот в этом примере создаётся строка из миллиона символов 'Ё' и потом отображается длина этой строки:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  lpParameters: PWideChar;
begin
  lpParameters := PWideChar(WideString(StringOfChar('Ё', 1000000)));
  ShowMessage(IntToStr(lstrlenW(lpParameters)));
end;

Как и ожидалось выводит число 1000000 - т.е. ничего не обрезается.

p.s. Ещё может быть вариант что в твоей строке в позиции 2049 находится терминальный (нулевой) символ, что для нуль-терминированных строк является признаком конца строки.

[Alegun]

Сообщение от serega6531

...Переменная такая ещё до вызова ShellExecute.

Закомментируйте все составные строчки и по-одной отпускайте, на передаче параметров класса TMinecraftData обрежет вероятно - возможно несоответствие типов

[serega6531]

Сообщение от poli-smen

По чём определяешь что длина строки обрезается до вызова ShellExecute?

Потому что брейкпоинт

[poli-smen]

Сообщение от serega6531

Потому что брейкпоинт

А?

После присваивания строки переменной lpParameters вставь такую строку:

Код:

ShowMessage(IntToStr(lstrlenW(lpParameters)));

Какое число выводит?

[serega6531]

Сообщение от poli-smen

А?

После присваивания строки переменной lpParameters вставь такую строку:

Код:

ShowMessage(IntToStr(lstrlenW(lpParameters)));

Какое число выводит?

Я сейчас пробую установить delphi 2007