function GetSystemDir:string;
var buf : array[0..145] of char;
sDir : pchar;
begin
sDir:=@buf[0];
GetSystemDirectory(sDir,144);
Result:=StrPas(sDir);
end;
var buf : array[0..145] of char;
sDir : pchar;
begin
sDir:=@buf[0];
GetSystemDirectory(sDir,144);
Result:=StrPas(sDir);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货