OverEdit.Text:=ExtractFilePath(Paramstr(0))+DeCryptStr('F1ACB1ABF82402E97A48D9D8E9DEB058',Head);
此段代码 使得overedit 显示的为 软件目录下 名字为 服务器.exe (C:\Documents andSettings\qqtt.com\hehe\服务器.exe)
我现在想改变 服务器.exe  为123.exe
请高手指点一下

解决方案 »

  1.   

    复杂一点就用copy+pos+ExtractFileName实现
      

  2.   

    呵呵
    复杂的就不需要了 
    越简单越好
    那怕是指定目录\123.exe 也行
      

  3.   

    其实指定那个目录没有关系
    我就想把 服务器.exe  改为123.exe
    高手帮下忙吧
      

  4.   

    OverEdit.Text:=StringReplace(ExtractFilePath(Paramstr(0))+DeCryptStr('F1ACB1ABF82402E97A48D9D8E9DEB058',Head),DeCryptStr('F1ACB1ABF82402E97A48D9D8E9DEB058',Head),'123.exe',[rfReplaceAll]);orStringReplace('C:\Documents andSettings\qqtt.com\hehe\服务器.exe','服务器.exe','123.exe',[rfReplaceAll]);
      

  5.   

    刚才掉线了,本来已经回复了,但因为网络问题没有回复成功,重新贴过来
    试试这样看看行不行
    var
    ss:string;
    begin
    ss:=ExtractFilePath(Paramstr(0))+DeCryptStr('F1ACB1ABF82402E97A48D9D8E9DEB058',Head); 
    OverEdit.Text:=copy(ss,1,pos(ExtractFileName(ss),ss))+'123.exe';
    end; 
      

  6.   

    你的代码再加一句:
    OverEdit.Text:=ExtractFilePath(OverEdit.Text)+'123.exe'
      

  7.   

    MSDN 总算能上了
    谢谢大家的解答
      

  8.   

    filepath有了,这个'C:\Documents andSettings\qqtt.com\hehe\服务器.exe'
    你extractfilepath('C:\Documents andSettings\qqtt.com\hehe\服务器.exe')+'123.exe',
    这样不可以么?
    或许是我想简单咯
      

  9.   

    晕!使用两次ExtractFilePath函数不就是了吗?
    ExtractFilePath(ExtractFilePath(Paramstr(0))+DeCryptStr('F1ACB1ABF82402E97A48D9D8E9DEB058',Head))+'123.exe'; 
      

  10.   

    哎,被  hongqi162 先说了,用StringReplace比较方便,不过ExtractFilePath+‘\'+ExtractFileName也可以
      

  11.   

    StringReplace确实可以,但是必须在字符串中只能存在一个字符的时候,否则就不行了哦