你可以使用APPLICATION对象中的EXENAME属性
functionGetExePath:String;
varLastBackSlashPos,Index:Integer;
begin
Result:=Application.ExeName;
forIndex:=1tolength(Result)do
ifResult[Index]=′ι′then
LastBackSlashPos:=Index;
{subtract1sothatthelastbackslashisnotincluded}
Result[0]:=chr(LastBackSlashPos-1);
end;
functionGetExePath:String;
varLastBackSlashPos,Index:Integer;
begin
Result:=Application.ExeName;
forIndex:=1tolength(Result)do
ifResult[Index]=′ι′then
LastBackSlashPos:=Index;
{subtract1sothatthelastbackslashisnotincluded}
Result[0]:=chr(LastBackSlashPos-1);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货