1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| //Replace substring in a string
procedure FileReplace(SrcFile, sFrom, sTo: String);
var
FileContent: String;
begin
//Load srcfile to a string
LoadStringFromFile(SrcFile, FileContent);
//Replace Fraomstring by toString in file string content
StringChange (FileContent, sFrom, sTo);
//Replace old content srcfile by the new content
DeleteFile(SrcFile);
SaveStringToFile(SrcFile,FileContent, True);
end;
// Edit interface_config.js and constants.js
function EditConfigFiles() : Boolean;
var
SrcInterfaceConfigFile, sFrom, sTo :String;
begin
SrcInterfaceConfigFile := ExpandConstant('{app}\cfg\config.cfg');
sFrom := 'r_eyeshift_y';
sTo := 'r_eyeshift_y "1"';
FileReplace(SrcInterfaceConfigFile, sFrom, sTo);
Result:= True;
end; |
Partager