1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
var Reg : TRegistry;
localisation,Langue: String;
i : Integer;
S : TStringList;
F : TIniFile;
const DEF_LANG = (SUBLANG_FRENCH shl 10) or LANG_FRENCH;
begin
///... plus
F:=TIniFile.Create(ChangeFileExt(Paramstr(0),'.INI'));
try
/// ... autres
RvProject1.ProjectFile:=F.ReadString('Rave','File',ChangeFileExt(Paramstr(0),'.RAV'));
rvProject1.ProjectFile:=StringReplace(RvProject1.ProjectFile,'%APPDIR%',ExtractFilePath(Paramstr(0)),[]); // voilà le fichier projet prêt à l'emploi
finally
F.Free;
end; |