var
dwsize :dword;
pcstr : pchar;
tempdir : string;tempdir := '';
dwsize := MAX_PATH + 1;
getmem(pcstr,dwsize);
try
if gettemppath(dwsize,pcstr) <> 0 then
tempdir := strpas(pcstr);
finally
freemem(pcstr);
end;
dwsize :dword;
pcstr : pchar;
tempdir : string;tempdir := '';
dwsize := MAX_PATH + 1;
getmem(pcstr,dwsize);
try
if gettemppath(dwsize,pcstr) <> 0 then
tempdir := strpas(pcstr);
finally
freemem(pcstr);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货