var
Path:array[0..MAX_PATH-1] of char;
PathStr:string;
sPath:string;
begin
SetString(PathStr,Path,GetModuleFileName(Hinsance,Paht,Sizeof(Pth)));
sPaht:=ExtractFilePath(PathStr);
Path:array[0..MAX_PATH-1] of char;
PathStr:string;
sPath:string;
begin
SetString(PathStr,Path,GetModuleFileName(Hinsance,Paht,Sizeof(Pth)));
sPaht:=ExtractFilePath(PathStr);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货