OverEdit.Text:=ExtractFilePath(Paramstr(0))+DeCryptStr('F1ACB1ABF82402E97A48D9D8E9DEB058',Head);
此段代码 使得overedit 显示的为 软件目录下 名字为 服务器.exe (C:\Documents andSettings\qqtt.com\hehe\服务器.exe)
我现在想改变 服务器.exe 为123.exe
请高手指点一下
此段代码 使得overedit 显示的为 软件目录下 名字为 服务器.exe (C:\Documents andSettings\qqtt.com\hehe\服务器.exe)
我现在想改变 服务器.exe 为123.exe
请高手指点一下
复杂的就不需要了
越简单越好
那怕是指定目录\123.exe 也行
我就想把 服务器.exe 改为123.exe
高手帮下忙吧
试试这样看看行不行
var
ss:string;
begin
ss:=ExtractFilePath(Paramstr(0))+DeCryptStr('F1ACB1ABF82402E97A48D9D8E9DEB058',Head);
OverEdit.Text:=copy(ss,1,pos(ExtractFileName(ss),ss))+'123.exe';
end;
OverEdit.Text:=ExtractFilePath(OverEdit.Text)+'123.exe'
谢谢大家的解答
你extractfilepath('C:\Documents andSettings\qqtt.com\hehe\服务器.exe')+'123.exe',
这样不可以么?
或许是我想简单咯
ExtractFilePath(ExtractFilePath(Paramstr(0))+DeCryptStr('F1ACB1ABF82402E97A48D9D8E9DEB058',Head))+'123.exe';