создаю Storage и в нем мне нужно создавать елементы с GUIDым названием, и возникла проблема в том что есть ограничение на длинну имени елементов в 31 символ. (GUID даже если убрать скобки и тире 32 знака).
Код | var lGUID: string; lstr: array [0..63] of WideChar; lStream: IStream; begin //... lGUID := '{24991513-DC46-4FCC-8CE2-46D9C963A2B6}'; StringToWideChar(lGUID, @lstr, 64); //lstr если 31 символ то все ок если больше то :( Storage.CreateStream(@lstr, STGM_CREATE + STGM_DIRECT + STGM_READWRITE + STGM_SHARE_EXCLUSIVE, 0, 0, lStream);
//lStream = nil; <- :( //... end;
|
может есть какой способ увеличить макс длинну, 31 на самом деле же мало.
|