var
sBuf:array[0..Max_path] of char;
begin
GetSystemDirectory(sBuf,Max_path);
showmessage(sBuf);
showmessage(copy(sBuf,1,3));
end;var
sBuf:array[0..Max_path] of char;
s:string;
begin
s:='C:/Documents and Settings/Administrator/Application Data/Application data/Apple Computer/QuickTime';
GetshortPathName(pchar(s),sbuf,sizeof(sbuf));
showmessage(sbuf);

  • 阿里云国际版折扣https://www.yundadi.com

    • 阿里云国际，腾讯云国际，低至75折。AWS 93折 免费开户实名账号 代冲值 优惠多多 微信号：monov8 飞机：@monov6