如何解决 把 c:\jop\joo.exe中的joo提出来？

Question

changefileext((Extractfilename(paramstr(0))),'')

Answer 1

使用extractfilename 和extractfileext函数
  var  s1,s2,s:string;
   s1:='c:\jop\joo.exe';   s:=extractfilename(s1);
   s2:=extractfileext(s1);
   
   s:=copy(s,1,length(s)-length(s2)-1);

Answer 2

Kingron(戒网中……),chenshirong(抱琴),两位老兄解答的不错特给予分数报答。　　

Answer 3

Kingron(戒网中……),chenshirong(抱琴),两位老兄解答的不错特给予分数报答。