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
| var Ini : TCustomIniFile; // donc peut recevoir soit un TRegistryIniFile ou un TIniFile
stUserName : string;
stPassword : string;
begin
//Ecriture dans la base des registres dans la section NomDeMonAppli
Ini := TRegistryIniFile.Create('NomDeMonAppli');
try
// Ecriture dans la sous section Serveur de la cle UserName avec la valeur SYSDBA
Ini.WriteString('Serveur','UserName', 'SYSDBA');
// Ecriture dans la sous section Serveur de la cle Password avec la valeur masterkey
Ini.WriteString('Serveur','Password', 'masterkey');
finally
Ini.free;
end;
// Lecture des données
Ini := TRegistryIniFile.Create('NomDeMonAppli');
try
// Lecture dans la section Serveur de la clé UserName
stUserName := Ini.ReadString('Serveur','UserName','');
stPassword := Ini.ReadString('Serveur','Password','');
finally
Ini.free;
end; |
Partager