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