[KOOL]

Про Null-terminated string никогда не слышали?

Код:

SetLength(s, MAX_PATH);
ShlObj.SHGetSpecialFolderPath(0, @s[1], CSIDL, false);
SetLength(s, Pos(#0, s)-1);