xm := ansiStrAlloc(1024); fillChar(xm^,length(xm),0); ZeroMemory(xm,1024); 转载于:https://www.cnblogs.com/maweiwei/p/10619021.html