Exemplos de path via registro

{O exemplos abaixo lidam com arquivos INI. A idéia é a mesma do registry, com a vantagem de que o INI também roda no Kylix sem problemas. } procedure TfrmLogin.LoadConfig;
var
IniFile : TIniFile;
FIniFileName : ShortString;
begin
FIniFileName := LowerCase(ExtractFileName(Application.ExeName));
FIniFileName := Copy(FIniFileName, 1, Length(FIniFileName) - 3) + 'ini';
IniFile := TIniFile.Create(FIniFileName);
LogonUserName := IniFile.ReadString(SectionData, KeyUser, '' );
ConnectionString := IniFile.ReadString(SectionData, KeyConnection, '');
IniFile.Free;
end;

procedure TfrmLogin.SaveConfig;
var
IniFile : TIniFile;
FIniFileName : ShortString;
begin
FIniFileName := LowerCase(ExtractFileName(Application.ExeName));
FIniFileName := Copy(FIniFileName, 1, Length(FIniFileName) - 3) + 'ini';
IniFile := TIniFile.Create(FIniFileName);
IniFile.WriteString(SectionData, KeyUser, LogonUserName );
IniFile.WriteString(SectionData, KeyConnection, ConnectionString);
IniFile.Free;
end;

{A variável FIniFile permite que sejam criados arquivos INI com o mesmo nome da aplicação. Isso é bom e é ruim. É bom se cada aplicação acessar um banco diferente. Ruim se elas acessam o mesmo banco. Neste ultimo caso, é só dar um nome fixo ao INI. }