[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 находится терминальный (нулевой) символ, что для нуль-терминированных строк является признаком конца строки.