var
tmpPath: pchar;
begin
getmem(tmpPath, 255);
GetShortPathName('C:\My Documents\My Documents\aaa.txt',
pchar(tmpPath),
255);
showmessage(strpas(tmpPath));
freemem(tmpPath);
end;
tmpPath: pchar;
begin
getmem(tmpPath, 255);
GetShortPathName('C:\My Documents\My Documents\aaa.txt',
pchar(tmpPath),
255);
showmessage(strpas(tmpPath));
freemem(tmpPath);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货