这个功能是否被更新的功能所取代?
所以“S:= ExtractFilePath(paramstr(0)); S:= Copy(S,1,length(S)完成工作。
请注意,S的长度取决于您的应用程序标题。