Buscar por:

Exemplos de path via registro

Código

{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. }